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BRLESC FORTRAN IV 


ABSTRACT 


FORTRAN is a popular programming language that has been imple- 


mented on many computers. It is now available on Ballistic Research 
Laboratories’ BRLESC computer. This report describes the FORTRAN 
language in general and includes specific details about its imple- 
mentation on BRLESC. 
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I. INTRODUCTION 


FORTRAN is a programming language that is widely used on a variety 
of computers and can be used on Ballistic Research Laboratories’ RRLESC 
computer. FORTRAN was designed primarily for programming of scientific 
problems and the evaluation of arithmetic formulas. It is basically 
similar to the FORAST programming language that is currently used on 
BRLESC but many of the details are different. 


This manual is intended primarily for the programmers that are 
familiar with FORAST and BRLESC; however, it includes a general 
description of the FORTRAN language and should prove helpful to anyone 
who is interested in writing or reading FORTRAN programs. Additional 
details and gereral information can be obtained from other FORTRAN 
maruals and publications. The FORTRAN IV manuals fur the 7090/7094 
are suggested for those interested in using BRLESC FORTRAN since BRLESC 
FORTRAN is more compatible with the 7090/7094 version of FORTRAN <hen 
with some versions that ure used on other computers. Some readers may 
be surprised to learn that FORTRAN is not the same for all computers. 
Although the general rules are usually the same, differences in details 
do exist and some of these differences are quite subtle. it is rela- 
tively easy to write FORTRAN programs which when executed on different 
computers will yield different results. These differences may be due 
to differences {tn compll-r. or Jifferences in the structures of tre 
vomputers. However, most FORTRAN programs require only mincr modifi- 
eations to allow them to run on any given canputer. The modifications 
usually require mush less effort ani time than would be required to 


reeprogram the problem in anothers programming language. 


There have been two prominent vercions of the FORTRAN language. 
They are reforred to as FORTRAN II and FORTRAN IV. FORTRAN IV does nut 
include everything that was in FORTRAN 1I. However, the BRLESC FORTRAN IV 
compiler has retained esrentisgiiy all of FORTRAN IT so that it wiil 
accept statements that are jiefined in cither of these two versions of 
the FORTRAN lar unge. 


| 
| 
| 
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II. THE CHARACTER SET 


FORTRAN allows the use of the twenty-six capital letters of the 
alphabet, the decimal digits 0 to 9 and the special symbols + - ( ) . 


* /,=%. 


The card code for these characters is the same as normally used 
for 2xLESC and other computers except for the following: (These ex- 
ceptions will be removed in Janusry 1967.) 


’ FORTRAN BRL 


( 


$ 


Standard FORTRAN left parenthesis uses 0-4-8 punches 
that represents % at BRL. Since FORTRAN does not 
allow the 4-8 code (BRL left parenthesis) in programs, 
BRLESC FORTRAN allows either code to mean left 
perenthesis. (After January 1967, BRL will use the 
standard 0-4-8 punches for left parenthesis and the 
4.8 code will not be allowed. ) 


Standard FORTRAN uses card codes for the signs that 
are just the opposite of present BRL usage (+ is X, 
- is y at BRL). (BRL will change to standard 
FORTRAN signs in January 1967.) A "CHANGE + AND -" 
control card may be inserted in a FORTRAN program to 
cause BRLESC to reverse these symbols. They are 


initially set for BRI usage. 


The 709/7090 FORTRAN and BRLESC FORTRAN also allow a 
4.8 card code to be a minus sign on decimal input. 

BRL signs are used for decimal input unless the SETMSI 
subroutine is used to change signs. A "CHANGE + AND." 


control card does not change signs used for input data. 


This card code X-3-8 is allowed only in hollerith text 
(H fields) in FORMAT statements. (After January 1967, 
the $ character will be used as an end of statement 
mark, instead of >, and will also replace the % 
character on BRLESC assembly cards, both in column 


one and between orders.) 
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III. SYMBOLIC NAMES AND CONSTANTS 
General Names 


| 

In FORTRAN, all symbolic names (other than statement names) | 
must begin with a letter and, for variables, the first letter | 
usually determines the type of number it represents. Names of 
arithmetic variables that begin with I, J, K, L, M or N represent | 
integer numbers unless tnuey are declared to be floating point in | 
a REAL statement. Names beginning with other letters represent 
floating point numbers unless they are declared to be integers in 


an INTEGER statement. Names of logical variables may begin with 


any letter and must be declared in a LOGICAL statement. 


The length of symbolic names is restricted to six characters 
except subroutine names may have a terminal F as a seventh character. 
If names longer than six characters are used on BRLESC, the first 
five characters and the last non-F character will be used as the 
name. Arithmetic statement function names must not have more than | 


seven characters. 
Statement Numbers 


Locations of statements (cols. 1-5 of FORTRAN statement ecards) 
must be all decimal digits and thus look like integer numbers but 
are really symbolic locations of statements. Leading zeros and 
blank columns are ignored. (Statement numbers must be less than 
32768 for 7090/7094 but not BRLESC.) They do not affect the 
sequence of execution of the statements. On BRLESC, statement 
numbers may be written in place of a variable name by writing an S 


after the statement number. 
Constants 


1. Integer constants are written without a clecimal point. An 
integer constant on BRLESC may consist of 1 to 17 decimal digits. 
Some computers restrict integer constants to as few as four decimal 
digits. The values of integer variables on BRLESC must be less than 
2o4 in absolute value except the divisor and quotient of integer 


divide operations must both be less than a3 in absolute value. 
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2, Floating point constants must be written with a decimal 
point. They may consist of a decimal point with 1 to 17 decimal 
digits (on BRLESC) and may be followed by an E and a decimal 
exponent. (BRLESC also allows a D instead of E to indicate an 
exponent. The D indicates double precision constants on most 
other computers.) The BRLESC range of floating point constants 
(and variables) is between 10??? ana 107) approximately in 
absolute value with zero also allowed. Most computers have a 


more restricted range of numbers. 
Examples: 1. , 4.21, .2, 51.6 E2, .1E-3, 3.1 D-l 


3. Alphanumeric constants of six or less characters are 
allowed on BRLESC. They ust be preceded by nH where n is the 
number of characters in the constant. Blanks are not ignored 


in the n columns after the H. 


4, The logical constants allowed in FORTRAN IV are ".TRUE." 
and ".FALSE.", Note the use of a period at both the beginning and 
end of these constants. 


5. Octal constants are written as twelve octal digits. If 
less than twelve digits are written, zeros are added by the computer 
to the left of the digits to make a total of twelve. Octal con- 
stants are only allowed on FORTRAN II type boolean cards with a B 
in column one and in DATA statements. In DATA statements only, the 
octal digits must be preceded by the letter 0. 


Arrays 

Blocks of storage are referred to as arrays in FORTRAN and are 
defined in DIMENSION,COMMON or TYPE statements. Subscripts ure 
enclosed in parentheses in FORTRAN, e.g-,A(3) or B(I,J), and one, 


two, or three dimensional arreys “ay be used. Any subscript may 
be variable and "indexing", as done in FORAST, is not allowed. 


le 
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Subscription of variables is done by substitution rather than 
addition and the lower bound of all subscripts is one. Subscript 
arithmetic is allowed; BRLESC FORTRAN allows any integer arith- 
metic expression that does not itself involve any subscripted 
variables, however, the most general expression allowed in 
standard FORTRAN is C * V + C* where C and C' are integer con- 


stants and V is an integer variable. 


Symmetric arrays are not allowed in FORTRAN and there is no 


provision for "interweaving" arrays. 
Absolute Addresses 


Absolute decimal or sexadecimal addresses are allowed only in 


BRLESC assembly language instructions. 


IV. ARITHMETIC EXPRESSIONS 
The following symbols denote the following operations: 


+ addition 

- subtraction 

* multiplication 
division 


** exponentiation 


The use of functions (subroutines with only one result) is also 
allowed by writing the name of the function in front of parentheses 
that enclose the arguments. (FORTRAN allows functions tc have more 
than one argument and commas are used to separate the arguments. ) 


The arguments may be arithmetic expressions. 


The precedence of operations when not governed by the use of 


parentheses is 


functions (subroutines) 
+ 


* ana / 


+ and - 


where the operations higher on the list will be performed before those 
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that are lower on the list. Successive + and - operations or 
successive * and / operations will be performed from the left to the 
right. Parentheses may always be used to cause the operations to be 
done in any desired sequence. Successive exponentiations must always 
have parentheses to show the desired grouping. 


The major difference between FORAST and FORTRAN arithmetic 
expressions is the grouping of successive multiplications and 
divisions. FORAST groups them from the right and FORTRAN groups them 
from the left. Thus in the expression (A * B/C * D), D is in the 
denominator for FORAST and is part of the numerator for FORTRAN. 


Implied multiplication should not be used in FORTRAN (although 


some versions do allow it and BRLESC FORTRAN allows it after a right 
parenthesis). 


Fixed point fractional arithmetic is not allowed in FORTRAN. All 
arithmetic within an expression must be one mode (integer or fl.pt.) 
except for integer subscripts and integer powers of exponentiation 
in floating point expressions. The first letter of the names and 
the use of the decimal point in numbers determines the mode rather 


than preceding the expression with a declaration of the mode as is 
done jin FORAST. 


Parentheses must not be omitted at the ends of an expression. 
The number of left parentheses must be the same as the number of 


right parentheses in each expression. 


Two operations must not appear adjacent to each other in 
formulas; ¢.g.,/ - or *-. 


Any operation cn integers which does nct yield an exact integer 
result is truncated except negative integer results of ‘ivision on 
BRLESC FORTRAN will give the greatest integer that does not exceed 
the algebraic exact result. Thus ~-4.2 will give -5. This is prob- 
ably different from resulte on the 7094 or other absolute value 


machines. 


1b 
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From FORTRAN II on the 7090/7094, boolean expressions are 
allowed on cards with a B in column one. The symbols +,*, - 
denote the logical operations of or (inclusive), and, and comple- 
ment respectively. BRLESC FORTRAN performs these operations only 
on the rightmost 36 bits of a word so that it is compatible with 
the 36 bit word length of the 7090/7094. The leading 32 bits of © 
@ BRLESC word will be zeros after a logical operation. Note that 
FORTRAN IV has provided a new way of writing these logical operations 


as explained in Section VI below. 


Double Precision arithmetic expressions are allowed (a D in. 
col. 1) but are done in BRLESC single precision which is as 
accurate as 7090/7094 double precision. 


Complex arithmetic expressions are not presently allowed jn 
BRLESC FORTRAN. An I in column one will cause an error print. 


V. ARITHMETIC FORMULAS 


The general form of FORTRAN arithmetic formulas (arithmetic 
statements) is 


Vv = ae 


where v is a name of an arithmetic variable (it may be subscripted) 
and ae is an arithmetic expression. An example would be 


X(J +1) = A(s)*¥2 - V/(T + 3.) 


The arithmetic expression is evaluated and the result is 
stored as the new value of the variable whose name is on the left 


of the = symbol. 


No arithmetic may be performed on the left of the = symbol 
except for subscript arithmetic. Only one = symbol is allowed and 
hence only one variable will have its value changed by ar. arithmetic 
formula. If the type of this variable is different than the type 


vested we 
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of the expression on the right of the = symbol, the value of the 
expression is automatically converted to agree with the type of the 
variable on the left of the = symbol before it is stored. 


The arithmetic expression may be just a name of a variable or 
| constant, e.g.,X = A. 


VI. LOGICAL EXPRESSIONS | 


FORTRAN IV permits the use of logical variables and expressions 
that assume either the value .TRUE. or the value .FALSE.. The 
following three logical operations are defined using a and b to 


SAE Heian 
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represent logical variables or logical expressions: 


-NOT.a is . TRUE. when a is .FALSE. and is .FALSE. when 
ais .TRUE. 


a. AND.b is .TRUE. when both a and b are .TRUE. and is 
-FALSE. when either a or b or both are .FALSE. 


a.OR.b is .TRUE. when either a or b or both are .TRUE. 
and is .FALSE. only when both a and b are .FALSE. 


Two adjacent logical operations may be used only when the 
second one is .NOT.. Thus .AND..NOT. is legal but .NOT..AND. is 
illegal. 


A relational expression that consists of a comparison of two 
arithmetic variables or expressions may be used to form logical 
expressions. FORTRAN IV uses the following relational operators: 
(x and y represent arithmetic variables or arithmetic expressions. ) 

x.EQ.y js .TRUE. only if x = y. 
x.NE.y is .TRUE. oniy if x fy. 
x.GT.y de .TRUE. only if x >y. 
x.GE.y is .TRUE. only if x2 y. 
x. LT.y is .TRUE. only if x<y. 


x. LE.y is .TRUE. only if x < y. 
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| 


Whenever the relational expression is not .TRUE., it is 
-FALSE.. The arithmetic quantities x and y must be of the same 
type in any one relation, e.g.,if I is integer in I.LT.J, then 


J must also be integer. 


we Rn Napali cnarca teens aes ah 


On BRLESC, the operands for .EQ. and .NE. could be logical 


variables but this is not true for most other computers. 


It is illegal to use one arithmetic quantity as the operand | 
for more than one relation. Hence the mathematical expression 
x<y <z must be written as X.LT.Y.AND.Y.LT.Z and not as 
X.UT.Y.LT.Z. 


A logical expression is any legal combination of logical 
operaticns and relational expressions. Parentheses may be used to 
obtain any desired grouping of operations. In the absence of 
parentheses, the operations are performed in the following order: 

Arithmetic operations; Functions 
He 
* ana / 
+ and - 
Relations; .LT..LE..EQ..NE..GT..GE. 
Logical operations; -NOT. 
-AND. 
~OR. 


Note that all the relations have equal precedence which means 
that they will normally be evaluated from left to right. Note also 
that .NOT. has a higher precedence than .AND. and .OR. and hence 
will be performed before the other two logical operations. 


Logical Assignment Statements: 


Logical expressions may be used in logical IF statements 
(see Section VIII, item 6) and in logical assignment statements. 
Logical assignment statements have the general form 


acle 


MT 
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where a is the name of a logical variable and le is a logical 
expression. The value stored in a will be .TRUE. or .FALSE. as 
determined by the evaluation of the logical expression le. 


Examples of logical assignment statements: 


(I,J,X and ¥ represent arithmetic variables and A,B and C represent 
logical variables. ) 


A = .FALSE. 

A.AND. .NOT.B 
.NOT.(A.OR.B) 

= I.LE.3 
I.EQ.J.AND.(B.OR.X.LE.Y) 


3.1416.G7.X+Y.OR.I*J.GT.1000 


Qwrwwa 
t 


Logical Masking Statements: 


To improve compatibility with CDC FORTRAN, BRLESC allows 
logical masking statements. The operations .NOT.,AND., and .OR. 
may be used with arithmetic operands to accomplish bil-by-bit 
logical operations using the last 36 bits of BRLESC words. 


An example of a logical masking statemerit would be 
T = X.AND..NOT.Y 


where X and Y are arithmetic variables (real or integer) and T 
may be any type of variable. This example will do a bit-by-bit 
product of X and the complement of Y and will store this result 


in T without any conversion. 


VII. SPECIFICATION STATEMENTS 


This group of statements (DIMENSION, COMMON, EQUIVALENCE, TYPE, 
EXTERNAL and FREQUENCY) provides information to the compiler and may 
be used by the programmer to control the storage agsignment of some 
or all of the variables. These statemsts do not cause any machine 
code to be generated for running the program; they only affect the 
way it is compiled. 








DIMENSION a(i), b(il,i2), c(13,i4,15),..., where a,b,c 


are array names and the i's are integer constants. 


This statement is used to declare the names and max. .um sizes 
of arrays. The maximum subscripts are enclosed in parentheses and 
they must be decimal integer constants except integer dummy vari- 
ables may be used in FORTRAN IV subprograms if the array being 
defined is also a dummy variable. (See SUBROUTINE statement | 
description.) The minimum subscript is always taken to be one. | 
| 


One, two, or three dimensional arrays may be defined in any sequence. 


An array must be declared before its name is used in any other 
statement. FORTRAN IV allows arrays to be declared in DIMENSION, 
COMMON or TYPE statements with only one declaration allowed for the 


same array. 
Example: DIMENSION T(41),X(10),E(4,4,%),A(3,7) 


COMMON a,b,c,d,e ...... , where a,b,c,d,e are the names of 
variables of any type. 


This statement allows the programmer to specify that certain 
variables and arrays are the same in more than one program or sub- 
program (subroutine or function). The storage assigned to those 
items in the COMMON statement in one subprogram is the same storage 
assigned to the items in the COMMON statements in all of the other 
subprograms (and also the main program), Thus it also has an 
equivalence effect between subprograms. All storage used in each 
subprogram is different than the storage in any other subprogram 
except for the items that are listed in COMMON statements. 


Within each subprogram, all COMMON variables are assigned 
consecutively in the sequence in which they appeur. The starting 
point for all the subprograms within each total program is tne same. 
Proper space is left for arrays. 


COMMON statements are used to avcid listing many arguments 
when using a subprogram. By forcing the main program and sub- 
programs tc use the same storage “or some (and possibly all) of the 


variables, the need for specifying and movine variables is removed. 
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If any COMMON variable also appears in an EQUIVALENCE 
statement, the COMMON assigning has priority and is done first 
in BRLESC FORTRAN. This is different from 7090/7094 FORTRAN II 
where EQUIVALENCE variables are assigned first and will change 
the sequence of storage assigned to COMMON variables. BRLESC 


FORTRAN handles the COMMON-EQUIVALENCE interaction as specified 
for FORTRAN IV. 





FORTRAN IV allows dimension information to be specified in 
COMMON statements. However any one array must not be dimensioned 
more than once in the same program or subprogram, i.e.,if an array 
name in a COMMON statement contains dimension information, it must 
not also be dimensioned in a DIMENSION or TYPE statezent. 


: 
i 
i 
i 
i 
} 
H 


FORTRAN IV allows labeled COMMON blocks. A group of names 
may be preceded by a slash, a label name and another slash to give 
a name (label) to a section of the COMMON storage area. By using 
labeled COMMON, it is no longer necessary to think of COMMON as 
one big block. Whenever the same label is used in different sub- 
programs, the correeponding members of the two labeled blocks will 
be assigned the same storage positions regardless of their relative 
position within their respective COMMON statements. The following 
example will illustrate the meaning of labeled COMMON. if the 
following COMMON statements each appear in a different subprogran 
within the same complete progrvam, 


COMMON A,X/LA/B,I,W/AA/P,M,N 


COMMON A,Y/AA/P,ML,N1/LA/E,J,W//Z 


then the names A,P and W refer to the same quantity in both of the 
subprograms. The names X,B,I,M and N within the first subprogram 
refer to the same quantities respectively as the namea Y,E,J,M1 
and Nl in the second subprogram. In the second subprogram, the 
blank COMMON consists of A,Y and Z because two consecutive slashes 


<0 





To STN Er adie ate ee ge PONE, OME LT HEA 


cause the following quantities to be added to the blank COMMON 
block. Blank COMMON blocks do not have to be the same length in 
each subprogram. However labeled COMMON blocks of the same label 
must be the same length whenever they are used in different sub- 
programs within the same complete program. (Length is defined as 
the amount of memory space used.) Label names may be any legal 


FORTRAN name except the names of subroutines and functions may not 


be used. It is permissible to use the same name for a label and 
& variable within the same subprogran. 


A subprogram may have more than one COMMON statement. Addition- 
al COMMON statements simply extend the list of COMMON variables. The 
use of the same label again within the same subprogram simply extendé 
the list of variables in that labeled block. Thus the two consecu- 


tive statements 
COMMON A,B,C/T/F,G 
COMMON E/T/R,S//¥ 
is the same as the single statement 
COMMON A,B,C,E,V/T/F,G,R,S 


On BRLESC, the statements COMMON(USE MAIN) cr COMMON(USE 
PREVIOUS) may be used instead of repeating long COMMON statements 
in a subprogram when all of the COMMON variables are identical with 
the main program or the previous subprogran. 


EQUIVALENCE (2,0,¢,...),(d,e,f,...), where u,b,c,d,e,f 
are names of any type of variable. 
This statement causes different names to be assigned to the 
same memory space. (It performs the sume function as SYN does in 


FORAST.) All the names within a set of parentheses are made 
equivalent. Increments may be used if desired by enclosing them in 
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parentheres immediately after the name. (No increment is the 


same as an increment of one.) Increments on ar-~ay names may be 


either a sing’e integer constant or FORTRAN IV allows the proper 


number of integ2r constant subscripts to be used. 


Whenever arrays are partially or completely overlapped, space 
is always reserved for all cf the arrays involved so that there is 
no unexpectel overlapping of storage. However, EQUIVALENCE will 
not re-arrange COMMON storage; so equivalencing a larger array with 
a member of COMMON may cause additional overlapping of storage space. 


It is illegal to use EQUIVALENCE to try to cause any impossible 
arrangement of storage. It cannot be used to attempt to cause non- 
consecutive spaces to be assigned to elements of an array, to 
extend the beginning of the COMMON storage area or to equivalence 
two variables that are both in COMMON. it is also illegal for 
names of dumy variables to appear in an EQUIVAL™NCE statement. 


On BRLESC, it is illegal to equivalence anything to itself, 
either directly or indirectly. : 


On BRLESC, any EQUIVALENCE statement that contains the names 
of arrays and variables that are in COMMON statements must appear 
after the DIMENSION and COMMON statements. 


Fxample: EQUIVALENCE (A,B),(F(2,1),C,H(1)) 


TYPE STATEMENTS 


FORTRAN IV allows TYPE statements that declare specified 
variable names to represent variables of a specified type. Ifa 
name does not appear in a TYPE statement, then its first letter 
determines whether it represents an integer or a real (floating 
point) number. However, a TYPE staccment near the beginning of a 


program may be used to overide the automat_c type assignment. 
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BRLESC allows the following TYPE statements: 


INTEGER a,b,c,... 

REAL a,b,c,... 

DOUBLE PRECISION a,b,c,.... 
LOGICAL a,b,¢,..- 


where a,b,c,.-. represents a list of variable and function names. 
On BRLESC, DOUBLE PRECISION is used the same as REAL since double 
precision on most other computers is the same as BRLESC's single 


precision. 


Some computers also allow a COMPLEX statement but this causes 


an error print on BRIESC because complex ariti:metic is not allowed. 


Variable array names in TYPE statements may also contain 
dimension information. However the same variable must not also be 
dimensioned elsewhere, i.e. ,it must not also appear in a DIMENSION 


statement or be dimensioned in a COMMON statement. 


The names of all logical variables must be declared ina 
LOGICAL statement as there is no other method of distinguishing 


them from other variables. 


The TYPE statements must precede any executable statement or 
DATA statement that uses any variable or function mentioned in a 
TYPE statement. Note that these TYPE statements are non-executable; 
they cannot be used between executable statements to cause any 


run-time data conversion. 


BRLESC FORTRAN IV allows any of these type statements to be 
preceded with the word TYPE because CDC FORTRAN allows this. It is 
for this reason that the names TYPET, TYPER, TYPED, TYPEL and TYPEC 
must not be used as names of variables at the beginning of any 
statement. (CDC and BRLESC do not use the word PRECISION wher 
DOUBLE is preceded by TYPE. ) 
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Examples of some TYPE statements: 


REAL MASS, N2,LA(5,6),X 
INTEGER A,F,1(15) 

LOGICAL LV,T,WAY,LOW(18) , NOW 
TYPE REAL Ml,M2 





EXTERNAL STATEMENT 


FORTRAN IV allows this statement to be used to specify the 
names of subroutines and functions that are used as arguments for 
other subroutines or functions. It serves the s. 1e purpose as 
the card with F in column one did in some FORTRAN II compilers. 


The general form of the statement is 
EXTERNAL a,b,c,... 
where a,b,c,... represents a list of function and subroutine names. 


For BRLESC, any arithmetic statement function names used as 


arguments must also appear in an EXTERNAL statement. 


If the name of a function appears in both a TYPE statement 
and an EXTERNAL statement, the TYPE statement must precede the 
EXTERNAL statement. 


Example: 
EXTERNAL SIN,COS,FUN 


FREQUENCY 


This statement is ignored by BRLESC FORTRAN. Its purpose in 
7090/7094 FORTRAN is to provide information that helps the compiler 


to optimize the program. 
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VIII. CONTROL STATEMENTS 


This group of statements provides for controlling the 
sequence in which statements are executed in the running program. 
Unconditional transfer of control (sometimes called branching or 
jumping) is provided for by several types of GOTO statements and 
conditional transfer of control is provided by several types of 
IF statements. A DO statement allows definition of a "loop" and 
a CALL statement causes transfer of control to a subroutine with 
a return to the next statement. There are two statements (STOP 


and PAUSE) that cause the program to stop running. 


1. GOTO s where s is a statement number. 
This statement causes the statement numbered s to be done 
next. 
Example: GOTO 22 


2. GOTO (sl,s2,s3,...),i where sl,s2,s3 are statement numbers 


and i is a nonsubscripted integer variable. 


This is referred to as a “computed GOTO" and the statement 
done next depends on the value of i. If i=1, sl is done next; 


if i = 2, s2 is done next; etc. 
Example: GOTO(4,19,462),K 


3. ASSIGN s TO i where s is a statement number and iis a 


nonsubscripted integer variable. 


This statement causes the address of the statement 
numbered s to be put into the integer variable i and this type of 
statement is to be executed before the "assigned GOTO" statement 


(as explained in the next paragraph) is executed. 
Example: ASSIGN 64 to M 


4, GOTO i, (sl,s2,s3,...) where i is a nonsubscripted integer 


variable and sl,s2,s3, are statement numbers. 


This statement transfers control to the statement that has 
the number that was last assigned to i by means of an ASSIGN state- 


ment. The (sl,s2,s3...) enumeration in this statement is not really 
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necessary but should be used to list the possible statement numbers 
that this “assigned GOTO" statement may transfer control to. 


Examples: ASSIGN 44 to N 
GOTO N, (16,29,44,192) 


5. IF (ae) sl,s2,s3 where ae is an arithmetic expression and 
s1,52,s3 are statement numbers. 


This statement causes control to be transferred to statement 
sl,s2, or s3 depending on whether the value of the arithmetic ex- 


pression ae is negative, zero (exactly), or positive respectively. 


Examples: IF(X)4,7,22 
IF(R * V - 4.1 U+V))16, 244,16 


6. IF (le)st where le is any logical expression and st is 
any executable FORTRAN statement except IF and DO. The statement 
st is done if the velue of the logical expression is .TRUE. and 
control simply goes to the next sequential statement if the value 
is .FALSE.. 


Examples: IF(L.AND.X.GE.Y)GOTOL9 
IF(X.LT.10. )X=X+.5 
IF(I+J.EQ.14.0R.PRT)WRITE(2,16)A,B,C 


7. IF (e) sl,s2 where e is either a logical or arithmetic 
expression and sl and s2 are statement numbers. This statement is 
not standard FORTRAN but is allowed on BRLESC and CNC computers. 
Statement sl is done next if e is .TRUE. (or non-zero for arithmetic 
expressions) and statemet s2 is done next if e is .FALSE. (or zero 


for arithmetic expressions’. 


Exanples: IF(X)22,471 
IF(X.GT.O.AND.L)962,1075 
8. DOs i= il, 12, i3 where s is a statement number, i is a 


nonsubscripted integer variable and i11,12,13 are positive integer 


constants or nonsubscripted integer variables. 
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This statement causes the statements following this DO 
statement down to and including the statement numbered s, to be 
executed repeatedly with the integer variable i initiaily. assuming 
the value of il. The variable i is incremented by 13 at the end 
of the sequence of statements and the sequence is repeated if the 
value of i does not exceed 12. If il > i2 initially, CDC FORTRAN 


‘11 not execute the loop even once whereas BRLESC and most other 


computers will always execute a DO loop at least once. 


The specification of 13 is optional. If 13 is not 
specified, its value is taken as one (1). 


A DO sequence of statements may itself contain a DO 
sequence provided the entire inner DO sequence is contained in the 


outer one. Several DO's may terminate on the same statement. 


While most versions of FORTRAN have several other 
restrictions concerning DO loops, BRLESC FORTRAN does not have any 
other restrictions on the construction of the statements that are 
included in DO loops. BRLESC FORTRAN does always set and use the 
actual integer variable specified for i in a DO statement and its 
final value (plus the increment for normal termination of the DO 
loop) is always stored there. 


Examples: DO 42K 
DO 3 JT 


ist, 
MIN, 55, NSTEP 


9. CONTINUE 


This is a dummy statement that generates no object code 
except when it is the last statement in a DO loop. Its statement 
number is always used if it has one. It must be used as the last 
statement in a DO loop whenever the last statement would have been 
an arithmetic IF or GOTO type of statement that transfers control. 
Whenever a CONTINUE statcment is the last statement in a DO loop, 
its statement number is the location of the machine instructions 


that increment the DO variable and test it for its maximum value. 
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10. STOP or STOP w where w is an octal constant that is ignored. 


This statement causes the running program to be terminated 
and should only be used to indicate that the program has run to 
completion. This statement causes BRLESC FORTRAN to empty the tape 
output buffers, rewind all tapes used by the program that have not 
been rewound, check for overflows and halt at N40. On BRLESC, the 
program may also be terminated by reading a card or tape line that 
has the first ten characters of either "ENDbTAPEbb" or "bbbbbbPROB" 
where b represents a blank. 


Examples: STOP 
STOP 77 


11. PAUSE or PAUSE w where w is an octal constant. 

This statement causes the program to hait and display the 
octal constant. (BRLESC displays it in the a address of the halt 
order.) If the computer is re-started manually by pressing the 
proper button (initiate on BRLESC), the program will continue with 
the next statement. 


This statement should not be used without a very good 
reason for using it. 
Examples: PAUSE 
PAUSE 421 


12s sCALL abd 40's). 

This statement causes the subroutire named "a" to be 
entered and executed with b,c,d,... as the arguments, parameters, 
and store addresses. (Arithmetic expressions are allowed. ) For 
BRLESC FORTRAN, "a" couid be the name of a function (a subroutine 
with one result) and the subroutine being called must be one that 
is a standard one on the compiler tape or one whose code is in- 
clud 2 in the program as a SUBROUTINE (or FUNCTION). 

The arguments used in a CALL statement must avree in type 
with the type of the dummy variables that wer2 used when the sub- 
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routine was defined. If there are no arguments, they may he 
omitted. 


CALL EXIT or CALL DUMP statements on BRLESC are the | 
same as a STOP statement and CALL PDUMP is ignored. 


Alphanumeric arguments of six or less characters are 
allowed in BRLESC FORTRAN. 


Examples: CALL SUB3(X,Y,R) 
CALL TOTAL 


13. IF (SENSE SWITCH i) sl,s2. 


This statement transfers control to statement cl cr s2 
if sense switch i (1 < i $6) is dow or up respectively. (i 
must be a constant.) On BRLESC, the manual read switches 15-20 
are used as sense switches 1-6 regpectively. However, these 
switches may be “preset" by a program control card to be either 
"down" or "up" regardless of their actual position. (See SETSSW 
in Section XVII.) 


Example: IF (SENSE SWITCH 3)14,92 


FORTRAN IV does not usually allcw this stat ment. In- 
stead a subroutine SSWICH is predefine?. The general form of its 
use is 

CALL SSWICH (i,j) 


where i is the number of the sense switch to be tested and } is 
set to 1 if it is down and } is set to 2 if it is up. 


ik, SENSE LIGHT i where i is 0,1,2,3, or 4. 


If i is 0, then all sense lights ure turnei off. If 
l<i sh (actually 6 on BRLESC), sense light 1 only will be 
turned on. The rightmost four (actually six) bits or cell O02 
on BRL®SC ars used as sense lights. Initially on BRLESC all af 


them are off. 


Example: SENSE LIGHT 2 
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FORTRAN IV does not usually allow this statement. In- 
stead a subroutine SLITE is predefined. The general form of its 
use is 

CALL SLITE(i) 


where 1 is the number of the sense light to be turned on. If 
1 = 0, all sense lights are turned off. 


15. IF(SENSE LIGHT i)sl,s2 


If sense light i is on, it is turned off and statement 
sl is done next;otherwise statement s2 is done next. 


Example: IF (SENSE LIGHT 2)67,39 


FORTRAN IV does not usually allow this statement. In- 
stead a subroutine SLITET is predefined. The general form of its 
use is 

CALL SLITET(i,j) 


where i is the number of the sense light to be tested and turned 
off. If the light was on, j will be set to 1 and if the light was 
off, j will be set to 2. 


16. IF ACCUMULATOR OVERFLOW sl,s2 


This statement checks for floating point exponent overflow 
on BRLESC and does statement sl next if it has occurred. Otherwise 
statement s2 is done next. (The very last operation may not be 
included in the check on BRLESC and this test turns the indicators 


off if they were on before.) 


FORTRAN IV does not usually allow this statement or the 
IF QUOTIENT OVERFLOW statement. Instesd a subroutine OVERFL is pre- 
defined. The general form of its use is 


CALL OVERFL( J) 
where j is set to i if the overflow condition was on and j is sct 


to @if it was off. The overflow condition is also turned off if 


it was on. 
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17. IF QUOTIENT OVERFLOW sl,s2 


This does exactly the same as the IF ACCUMULATOR OVERFLOW 


statement explained above. 
° 18. IF DIVIDE CHECK sl,s2 


On BRLESC FORTRAN, this statement checks for floating 


point division by zero (or unnormalized divisor) or fixed point 


division overflow. If either has occurred in the program, state- 
ment sl is done next; otherwise s2 is done next. (The very last 
operation in the previous statement may not be included in this 
test or RRLESC and this test turns the indicators off if they were 


on before. ) 





FORTRAN IV does not usually allow this statement. In- 
stead 1 subroutine DVCHK is predefined. The general form of its 
use is 

CALL DVCHK( j) 


where j is set to 1 on BRLESC if either the floating or fixed point 
divide overflow condition is on and j is set to 2 if noth are off. 


Both conditions are turned off if they were on. 


IX. THE FORMAT STATEMENT 


FORMAT (Special Specifications) 

Thic statement is not executed but is used to specify the fiel' 
longths, spacing and the form cf the data for either the reading of 
input data or the printing (or punching) of output date. It is 
ulwuys used in conjunction with one of the input-output statements 


und does nothing by itself. 


Let n = number of times to repeat this field. (n is optional, 


Wert an a if not specified. ) 


w= the width of the field (the number of colw-ns or 


characters). 


d= the number of do:imal places to the right of the 
@orinal point. (d is used modulo 1¢ un 7090/7094 but not on BRLESC. ) 
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Then the types of fields that may be specified are: 


nEw.d for floating point numbers with exponents. 


nIw for integer numbers. | 
i 
nFw.d for floating point numbers without exponents. | 
| 
i 
i 


wX for spacing or blank columns. 
nAw for alphanumeric fields. 
wH for alphanumeric (Hollerith) fields wi.rre the 


characters are read into or printed from the w 
characters following the H in the FORMAT state- 
ment itself. 


nOw for Octal numbers. 
niw for FORTRAN IV logical variables. 
nDw for double precision numbers with exponents. 


nGw.d for generalized floating point numbers. 
nRw for right adjusted alphanumeric ficlds. 


Consecutive field specifications are separated by commas, thus 
"PORMAT (16, 3E14.6,F10.7)" is an example of a FORMAT statement. 
Each complete FORMAT statement specifies the maximum length of the 
record (card or printer line) that will be read, printed or punched 
when that FORMAT is used. 


Two sets of parentheses are allowed in 7090/7094 FORTRAN and 
four sets are allowed in BRLESC FORTRAN so that groups of specifi- 
cations may be repeated within a FORMAT statenent. A left parenthesis 
may be preceded by an integer n to indicate the number of times to 
repeat the specifications enclosed in parentheses. Thus FORMAT (E12.5,3 
(16,F9.3)) would be a format where the I6,F9.3 portion would be re- 
peated three times. 


If the input-output statement list contuins mere items than 
specified by the FORMAT being used, then a new card or line is 
begun and the FORMAT is repeated from the left parenthesis that is 
associated with the next to last right parenthesis. (If there is 
only one pair of parentheses, then the FORMAT is repeated from the 


beginning.) If this parerthesis ic preceded by a repeat number, 








; 


it will be used on most computers including BRLESC. If the FORMAT 
specifies more fields than required for an input-output list, the 
rest of the FORMAT is ignored except an H field that follows the 


last number will be used. 


A slash "/" may be used in a FORMAT statement to indicate 
that a new card or line should be started. Thus FORMAT ({£10/E15.6) 
used for punching cards would cause a ten column integer to be on 
one card and a fifteen colwnn floating point number to be on the 
next card. If a slash is used where a new line starts anyway, it 
is ignored except N+l consecutive slashes will always cause N blank 
lines or cards (or skip N cards for input). On some computers but 
not BRLESC, N slashes at the beginning or end cf a FORMAT causes 
(or ignores) N blank lines. 


Seale factors may be used with F type specifications (and in 
a limited way with E type specifications). An integer, s, specifies 
the power of ten (scale factor) to multiply the internal number by to 
obtain the external. number, i.e., input numbers get divided by 10° 
(not on BRLESC) and output numbers get multiplied by 10°. The 
integer s is written in front of the nFw.d specifications and the 
letter P is used to separate s and n, e.g., -2PHF10.5 or -2FF15.5 
specify a scale factor 107°, On BRLESC FORTRAN, either a + or a - 
Sign In :ront of s is used as a minus sign. Therefore never write 
+ signs in front of s. Once s nas been specified, the scale factor 
remains in effect for the rest of that FORMAT statement (including 
repetitions) and will be used on subsequent E and F type fiells. 
A OP specification may be used to reset it to 0. For input, a 
punched decimal point overides both the scale facto. and the d 
specified. For E fields, only a positive scale factor may be used 
aid it aoes not change the value of the number; it only indicates 
that oc ifefte should be printed in front of the decimal point. (It 
has no meaning for input E fields.) Thus the number 2 would normally 
pvint ©,20F 01 for s = QO, but for s = 1, it would print 2.00E 00 
and s = 2 would print 20,0cE-01. 
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I Fields 


Input: 


Output . 


E Fields 


input: 


Output: 


Most FORTRAN compilers assume the integer to be 
punched at the right end of the field without a 
decimal point; however, BRLESC FORTRAN wiil ascept 
it any place within the field and it may have a 
decimai point. Any digits following a point are 
ignored. ° 


The integer will be punched at the right end of the 
field with a floating sign. (Al1] output has a 
floating sign which means that the sign is in the 
colum preceding the leftmost digit that is printed. 


Leading zeros are not printed on I or F fields.) 


Ths number may or may not have an exponent. An E 
or a sign, but not a blank, may be used to indicate 
the starting of the exponent. The exponent may be 
less than four columns. If 4 decimal point is 
punched, it is used and overides the s and d speci- 
fication. If no decimal point is punched, then it 
is assumed to be after ad digits (colums) left from 
the start of the exponent. Most FORTRAN compilers 
require that the number be punched at the right end 
of the field, tut BRLESC FORTRAN allows it anywhere 
Within the field. Blank columns are used as zeros 


(except after the exponent on BRLESC). 


The floating point number wili be printed with a four 
column exponent that includes an E, a sign, and two 
digits for the value of the exponent. A decimal point 
is printed d digits from the right end of the coef- 
ficient and if s = 0, a zero is printed in front of 
the Gecimal point. If s 21, then s digits of the 
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F Fields 


Input: 


Output: 
a aa 


H Fields 


Tnput: 


Output: 


coefficient are printed to the left of the point. 
The sigr immediately precedes the first digit 
printed. The entire number is printed at the right 


end of the field of w columns. 


The same as E fields, see above. (This may not be 
strictly true for other computers but will generally 
give the desired result except possibly for the use 


of a scale factor.) 


The floating point number will be printed without an 
exponent and the decimal point will be printed d digits 
from the right end of the field. The actual number 
printed is 10° times the number that is in the computer. 
If the number is too iarge for the coiumns specified, © 
BRLESC will print the number with an exponent or as 
much of the right portion of such a number as is 


permittea by the field width. 


The alphanumeric information is stored in the FORMAT 
statement itself inmmeciately following the H. No 
transformation of characters is done ; the sign 
option setting for numeric input on BRLESC has no 


effect on H fields. 


The w alphanumeric characters that immediately follow 
the H are printed. Blanks are not ignored and there 
is no transformation of any of these characters. 

Thus on RRLESC, "(+ - " characters may not be the 
ones intended if the deck was punched vsing standard 
FORTRAN characters at some other installation. (The 


"CHANGE + AND -" control card does not change the + and 
- signs in H fields.) For tape output, if an H field 
occurs at the heginning of a line, the first character 
is used for vertical high speed printer format control 
instead of actually getting printed. 
A Fields : 

Input: If w <6, this causes w alphanumeric characters to be 
stored in the variable name that is on the input list. 
To be compatible with 7090/7094, BRLESC FORTRAN stores a 
maximum of six characters per word at the right end of 
the word. If w <6, the characters will be at the left 
of the 36 bits with blanks to fill out the word. If 
w > 6, then w - 6 columns will be ignored before storing 
the rightmost six characters of the field. As with H 
fields, no transformation of characters is done. This 
can be used to read FORMAT specifications at run time. 

Output: This causes w alphanumeric characters to be printed from 

| the contents of the variable name that is on the output 

list. The rules listed above for A input are followed 
so that whatever is read will be printed exactly the 
same. When w > 6, w - 6 blank columns will be printed 


to the left of the six characters that are printed. 


X Fields 


This causes w columns to be skipped whether they are 


tH 
E 
¢ 


plank or not. 


tput: Causes w hlank columns to be printed. 


: 


OQ Fields 


¢ 





nput: This allows octal numbers to be read and stored at the 


: 


right end of BRLESC words in the same manner as integers. 

(There is no left normalization.) On BRLESC, if w > 12, : 
the leading columns will be used and may cause more than 

46 bits to be stored if they are not blank. 
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i? 


Output: 


L Fields 


Input: 


D Fields 


Input & 
Output 


G Fields: 


Input & 
Output 
R Fields 


Input & 
Output: 


This allows integers (octal or decimal) to be printed in 
octal form at the right end of the field with leading zeros 
suppressed. If w >12, w-12 blank columns are printed to 
the left of the 12 octal digits. | 


If the first non-blank character is a T (or the digit 1 
on BRLESC), the logical value .TRUE. is stored; otherwise 
-FALSE. is stored. 


A T is printed in the rightmost column of the field if the 
value of the logical variable is .TRUE.; otherwise an F 


is printed in the rightmost column of the field. 


This is allowed for those computers that use double pre- 
cision variables. On BRLESC, it is used exactly the 


same as an E field. 


BRLESC uses G fields exactly the same as F fields. 


Only a few computers and BRLESC allow 4 fields. They are 
exactly like A fields except when w < 6, the characters 
are stored into (or printed from) the right end of the 


computer word. 


FORMAT statements may be placed anywhere within a program (or sub- 


program) except as the first statement within a DO loop. 
restriction does not apply to BRLESC but should be followed. 


(This 
Qn BRLESC, 


FORMAT statements are done as NOP instructions so it Is best not to place 


them where they will be done often.) FORMAT statements are kept as alpha- 


numeric information and decoded at run time, thus it is permissible to 
use A fields to read FORMAT statements (without the word FORMAT) at run 


time. 


m 


The variable names «* such statements must be listed ina 


DIMENSION statement for most computers but is not required for BRLESC. 


at 
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If the list in an output list is exhausted and the next item in 
a FORMAT statement is an H field, the H field is printed. (If the end 7 
of FORMAT and list occur at the same time and an H field follows the 
last left parenthesis, it will not be printed.) Note that a FORMAT 


may contain nothing but one or more H fields. 


Blank characters in 2 FORMAT statement ere ignored except within 
H fields. The w count for an H field must include the blanks within 
the H field. 


The comma separating field specifications may be omitted when it 
follows an H or X field specification or would precede or follow a 
parenthesis or slash. (This rule may not hold for all computers but is 
true for BRLESC. ) 


Examples: FORMAT(315,(E15.8)) 
FORMAT( 2HX=,F10.4,4(1PE12.5)) 
FORMAT(6F10.4/4110//) 


X. DESCRIPTION OF INPUT-OUTPUT LISTS 


The names of the variables to be transmitted between the computer 
and the input-output devices are specified on a list in the proper type of' 
input-output statement and the sequence of the names on the list determines 
the sequence of transmission. Simple variable names, subscripted array 
names where the subscript control is either specified in other statements 
or within the input-output list, and array names without sudscripts are 
allowed. Array names without subscripts cause the entire array to be 
transmitted and the elements must (for input) or will (for output) be 
arranged in the same sequence that they have in the computer memory. 
(BRLESC and most computers vary the subscripts from left to right, thus 
two dimensional arrays are stored by columns; i.e, A(1,1), A(2,1), A(3,1) 
etc. is the sequence of elements of the array A.) Commas are used to . 


separate the names on an input-output list. 
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Indexing information specified within the list is written after 
the names of variables to which it applics and the names and the 
indexing information are all enclosed in parentheses. For example A, 
(B(I), I = 1,10) would cause the transmission of A, B(1), B(2), ... 
B(10). Note that the indexing information is written the same as in 


a DO statement with the increment taken as one if it is not written. 


It is permissible to nest these parentheses, e.g. ((A(I,J),I = 1,5), 


J = 1,5). Note that commas are used to separate items on the list 
and must be used after a right parenthesis except for the last ore. 
The indexing within each set of parentheses is done to completion 
before going on to the next indexing specification. On BRLESC, there 
is a restriction that when indexes are controlled within an I/O list, 
they cannot be used in any subscript arithmetic expression that re- 


yiires more than the addition or subtraction of a constant. 


All of the input-output statements that transfer alphanumeric 
(not binary) data make use of a FORMAT statement to specify the field 
types and lengths. The type (integer or floating point) of a name 
specified on an input-output list must correspond to the type cf field 
specified in the FORMAT statement that is being used. All integer 
variables must use I fields and all floating point variables must use 
E or F fields. (BRLESC does allow integers to be printed as intererc in 
E or F fields.) The FORMAT controls the maximum length of each line. 
A line is shorter than specified in a FORMAT cnly when the end of the 
list is reached before the end of the FORMAT. Whenever the end of the 
FORMAT is reached before the end of the list, the FORMAT is repeated from 
the left parenthesis that is associated with the next to last right 
parenthesis and a new line (or cari) is started. (If there is only one 
pair of parentheses, then the FORMAT is repeuted from the beginning.) 
(See Section IX for more informution about FORMAT statements.) 


Constunts and urithmetie oxpressions are not permitted on input- 
output lists,except indexing information may contain constants and sub- 


scripts may be constant or arithmetic c.pressions. 4 
It is permissible to read an integer variable und use it us 4 sube- | 
39 


Hts ee ee pt A ew 
ee coe cee recnnent cnn meme aneetR 


Se ain te sae ner aenee oe ee 


script within the same input list if its name is separated from the 
place it is used by at least two left parentheses. (This is counting 
the one used to indicate a subscripted variable. Extra parentheses 

may be used just to meet this requirement.) Thus J,(B(J)) is an 
example where the value of the variable J just read will be used as 

the subscript for B(J). (For BRLESC, the extra parentheses are not 
required if two or more variables or any indexing information separates 
the integer from where it is used.) 


Examples: A, B, I 
N, M, (BA(N)),P 
((A(I,J), J = 1,10), I = 1,10), (R(K), K = 2,20,2) 


XI. INPUT-OUTPUT STATEMENTS 


The following group of statements may be used in FORTRAN to 
control the flow of information between the computer and input-output 
devices or secondary storage. Card reading or punching, magnetic tapes 
and, on some computers but not on BRIESC, druits may be used to read or 
record data. Most of the statements also use a FORMAT statement to con- 
trol the conversion of data between computer form and printer or card 
form. However, the READ TAPE or READ(t) and WRITE TAPE or WRITE(t) (anda 
the corresponding DRUM statements on computers that allow them) cause 
the transfer of data without any conversion. This computer form of 
data wili be referred to as binary information and actually is binary 
numbers for a binary computer such as BRLESC. The other statemerits 
cause the reading or printing of data in alphanumerical form. There are 
three statements, END FILE, REWIND and BACKSPACE that do not transfer 
data but can be used to manipulate the magnetic tapes. 


In all of the input-output statements described below: 


f is a FORMAT statement number or name. 
"list" is any allowable input-output list (Se> Section X). 
t ds a magnetic tap: number or integer variable. 
(See BRLESC restrictions on t at end of this section.) 


ko 


READ f, list 


This statement causes decimal and alphanumeric data to be read 
fron cards (or tape 6 on BRLESC if the cards have been put on tape 
off-Jine and console switch 36 is up.) (BRLESC may use all 80 
columns for either input or output cards.) If the list is omitted 


on this statement, one card will be read and ignored on BRLESC. 


PUNCH f, list 


This statement causes decimal and alphanumeric data to be punched 
on cards (or actual tape 8 if console switch 35 is up. The tape out- 
put will be "formatted" for the high speed printer by adding a l 
character at the beginning of each "card" and an end-of-line character 
at the end of eack "card". ‘The block length will be at least 1830 
characters.) All 80 columns of a card may be usea on BRIESC and for 


tape 8 output, the "card" may be up to 160 columns long. 


PRINT f, list 


For most computers, this statement means to print the data on an 
on-line printer. Since BRLESC does not have an on-line printer, the 
data is put on actual tape 8 for off-line printing. ‘The maximum line 
length for nost computers is 132 characters and it is best to use 1322 
as maximum a.though BRL does currently have one printer that ha= 160 


columns. 


The following description generally applies only for BRLESC. If 
the first character of a line comes from an H field, it will be used 
for vertical format control (after a iransformation) and not printed. 
it, tt 

1 


If the first character does not come from an H field, an eacra 


character (single space) is inserted at the beginning of the line. 


4) 
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In either case, the zone bits will be set to 01 so that it is possible 
to print PRINT output separately from PUNCH output when both are on 
tape 8. The end-of-line character is automatically inserted at the end ! 
of each line. The tape writing is parity cnecked and there is checking 

for end of reel. The tape block length is at least 1830 characters and 

this allows about 7.5 million characters on 90,000 lines of 80 characters 

each on a reel of BRLESC tape. 


For BRLESC, a control card may be used to change all PRINT state- 
ments to PUNCH statements. 


READ INPUT TAPE t, f, list 
READ(t,f) list (FORTRAN IV form. ) 


These statements cause decimal and alphanumeric input data to be 
read from tape t. Each block of BRLESC tape may be as long as 2000 
characters and each line may be as long as 160 characters. If the 
tape was previous FORTRAN output that has a vertical control character 
at the beginning of each line, provision should be made in the FORMAT 
for skipping that character. However on BRLESC, the vertical control 
character is ignored unless the FORMAT has an H field at the beginning 
of the line. (If the tape was previous FORAST output, the vertical 


control character is automatically ignored. ) 


The tape reading is parity checked and there is checking fur end 


of reel. 


If the "list" is omitted with this stavement, it will cause one 
line to be read and ignored on BRLESC. 


Jast INPUT may be used instead of READ INPUT TAPE in this statement 
on BRLESC. 


WRITE OUTPUT TAPE t,f, list 
WRITE (t,f) list (FORTRAN IV form.) 


These statements cause decimal and alphanumeric output data to be 
recorded on tape t. Each line of data may net exceed a total of i172 
characters (160 on BRLESC). The first character will be used as a 
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vertical control character for the high-speed printer and is determined 
in the same manner as for the PRINT statement described above except the 
zone bits will be 00. 


The tape writing is parity checked on BRLESC and there is checking 
for the end of a reel. The number of lines per reel on BRLESC will 
vary from about 60,000 to 200,000 as the length of each line varies 


from 160 characters to 1 character. | 


Just OUTPUT may be used instead of WRITE OUTPUT TAPE in this state- 
ment on BRLESC. 


READ TAPE +, list 


READ(t) list (FORTRAN IV form.) 


These statements cause binary information to be read from tape unit 
t. It should be used only for reading data that was previously put on 
tane by the use of the WRITE TAPE statement described below. This state- 
ment will not read more data than was specified on the list of the state- 
ment that wrote the data. (Such a group of data is defined to be a 
"logical recora".) If less than the entire logical record is read, the 
tape will move to the end of the record. (If the list is omitted 
entirely, the tape still moves to the next logical record.) If an 
attempt is made to read more data than is on one logicai record, th 


unucoed vortion of the list wiil be ignored. 


Mm BRLESC, oinury logical records are suoddivided into tape blocks 
o: 128 words each. Within each logical record, the first word of each 
block contains in the q address the number of words in tne last block 
(not zounting this word) and in the y¥ address, the total number of 


blor«s in the logical record, 


WRITE TAPE t, List 


WRITE(t) itsut (FORTRAN IV form.) 

These statements cause all of the data specified on the list to te 
written as binary information in one logicai record (se*# READ TAPE) on 
tape unit t. . is useful for temporarily recording data on tape that 


mic te read buck into the compolce by using a READ TAFE statement) at a later 
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time. See the explanation of the READ TAPE statement for a 
description of the way the information is "blocked" on the tape. 


END FILE t 
This statement causes a file mark to be written on tape t. 


BACKSPACE + 

This statement causes tape t to be moved backward one "logical 
record". This is all of the data written by the WRITE TAPE statement 
that wrote the record for a binary tape, or is one line (or "cara") 
if it is an alphanumeric tape. 


REWIND + 
This statement causes tape t to be rewound without being inter- 
locked. 


READ _DRUM_i, ji, list 


This statement is not allowed on BRLESC and causes an error print. 
For the 709/'7090, it means to read data from irum i beginning ut the 
jth word. (Variable subscripts are not allowed on the list.) 


WRITE DRUM i, j, list 

This statement is not allowed on BRLESC and causes an error 
print. For the 709/7090, it means to write data on drum i beginuing 
at the jth word. (Variable subscripts are not allowed on the list.) 


Additional Notes on Input-Output Statements 

The f (FORMAT number or name) may be omitted in READ, PUNCH or 
PRINT statements on BRLZSC and this will cause a FORMAT (1P6E12.5) to 
be used automatically. 

The statement numbers 1 and 2 may be used to automatically specify 
FORMAT (5F14.5) and FORMAT (1P5E14.5) respectively without including 
them as part of the program. If 1 or 2 or both are used to refer to 
these FORMATS, then that statement number must not be usec in the pro- 
gram for any other purpose. If either one is used as = statement number 
in a program, then the ccrresponding automatic FORMAT cannot be usec. 
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The omission of a “list” on any of the input statements will cause 
one record (card, line, or logical binary tape record) to be read and 
ignored on BRLE®.. Some computers may allow the FORMAT specified to te 
used to skip more than one record. Note that a FORMAT should be speci- 
fied when the list is omitted although it is not necessary to do so on 
BRLESC. 


The number of print positions on one of BRL's printers is 160. 
However it is best to restrict the line length to 132 characters or 
less so that other printers may also be used. BRLESC FORTRAN allows 
at most a total of 170 characters for a line including the vertical 


control and end-of-line characters 
ADDITIONAL NOTES ON THE USAGE OF MAGNETIC TAPE ON BRLESC: 


All of the tape reading and writing is parity checked. Rereading 
erroneously ten consecutive times or rewriting wrong twice after each 
of five consecutive "GAP instructions" causes an error print and BRLESC 


stops running tiic programs. 


There is checking for end-of-reel. At the e: 1 of a reel, BRLESC 
haits at C80 and is ready to accept a new reel when re-started. A 


single reel of BRLESC tape will hold about 90,000 lines. 


The only restriction on switchine between reading und writing of 
tapes is that a REWIND or BACKSPACE statement :nust Po uone befove reauing 
2 taupe that was just written. Whenever a tane on BRLESC is switehed from 
writing to reading, sa file mark and an extra one word block that says 
"END TAPE" {s «utomatically written on the tape before the final file 
mirk is written und then switching is done. (This extru vivck is 


levered Lv a RBACKSPACE statement. ) 


Ail FORTRAN alphanumeric input and output tapes aro “buffers ani 
muy contuln up tu 200C zharacters per block. Ta: aceomplish this 
bQErriogy oh tape unit ue regu rss the ues at aie oxtra. OOL works 
af BRLESC memory. This spaees Is arsignei ac it io necded while the 


progrun fs obedug ectrouted and will not conflict with any other memory 


a) 
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eseignuent made in a normal FORTRAN program. Buffers are assigned 
backward from the subroutines as long as space is available there. 
Otherwise they are assigned backward from the end of the memory. 
(For "CHAIN jobs", they are assigned so a3 to not conflict with any 
link of the CHAIN. ) 


The tape unit number t may be either a decimal integer constant 
or variable. If t is a variable, the integer value it has at the 
time the tape statement is executed is used as t. The following table 
shows the correspondence between the value of t and the tape switch 
on BRTFSC. The actual tape handler used d*pends on the switch setting. 


2. Switen 

1 or 11 

2 -or-i2 2 

3 or 15 5 

h or 14 4 

5 or 15 5 

6 9 

1 10 

8 i 

9 i2 
10 7 (temporary or output only) 


Note that 1 < t © 15 and that t is usec modulo ten for il <t<15. 

It is illegal to use both 1 and ll, or 2 and 12,...,or 5 and 15 within 
the seme program. (If t > 15 is used, it will be used modulo 16 with 
O using Switch 13. PRINT (end PUNCH) tape output uses Switch 8, tie 
compiler itself uses Switch 14 or 15 for its own program end uses 
Switch 7 for temporary storage while compiling, and card input put 

on tape off-line uses Switch 6. (Usage of switches 6 and 7 are identi- 
eal to FORAST.) When leaving problems to be run on BRLESC, the switch 
number rather than tne t number should be used in the instructions to 


the computer operator. 
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All printer output is formatted for variable length lines for the 
off-line high speed printer. PUNCH tape output automatically has a 
single space character "1" inserted at the beginning of each line and 
an end-of-iine character at the end cf each line. The same is true 
of PRINT anc WRITE OUTPUT TAPE output if the first field of the line 
is not an H type field. If the first field is an H field, then the 
first character of the field is used for vertical format control 


after undergoing the following transformation: 


H Field Tape 
+ or - biank (no space) 
0 (zero) spveciai blank line with 1 on next line. 


(is double space) 


2 2 skip tc ever. numbered line. 
(possibie double space) 

i or 8 8 (start new page) 

others 1 (single space) 


A blank control character should normally be used to cbtain single 
spacea lines. The zone bits of the forszat character will be 00 
except PRINT cutput wili have 01. When reading previous FORTRAN 
alphanumeric output, a 1 vertical control character is transformed 
back to blank anc the special blank line is ignored but causes the i 
control character on the following line to ve transformed back to zero. 


The special biank line is also ignorec by the BACKSPACE statement. 


FORTRAN programs are supposed to contain an END FILE statement 
and a REWIND statement for each output tape used in the program and 
u REWIND statement for each input tape. =f this is not done within 
the program, BRLESC wiil rewind all tapes that were use* and not re- 


wound by the program. 
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XII. DATA STATEMENT 


The DATA statement of FORTRAN IV allcws initial values to be 
stored for variables without writing an executabie formula. The 
DATA statement allows a list of variable names to be foliowed by a 
list of the constants that should be initially stored as the values 
of the variables. A slash is used to separate a list of variables 
and a list of constants and commas are used to separate items within 
both lists. 


The general form of the DATA statement is 
DATA vl,v2,v3,.../e1,c2,c3,.../,vtsv5,.../cbyc5,..0/,eeeeee 


where vl,v2,... represents names of variables and cl,c2,... represents 
constants. The variable list may contain DO-implying parentheses with 
variable subscripts that take on specified integer constants. All 
other subscripts must be constant, i.e. ,the integer value 2f all sub- 
scripts must be completely defined within the DATA statement. The 

name of an array may be used without subscripts tc specify a list of 


the entire array. 


The constant list may contain any standard FORTRAN constant and 
may also contain octal constants by preceding the octal digits with 
the letter 0. T and TRUE are also allowed for .TRUE. and F and FALSE 
are also allowed for .FALSE.. Any constant may be repeated k times 
by preceding it with "k*" where k is the integer number of times that 
the constant should be repeated. 


Most computers will not allow the DATA statement to initialize a 
variable that is in blank COMMON; however this is allowed on BRLESC. 
Also most other computers allow variables in labeled COMMON to appear 


in DATA statements only within a special BLOCK DATA subprogram. 
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Some examples of DATA statements are: 


DATA A,B/5.3, .6E-3/ 
DATA I, LOGIC, OCT/14.,FALSE. ,O7777/, ALPH/4HDONE/ 
DATA(C(I),I=1,10)/5*1.0, 3*2.0,2*4.0/ 


Note the absence of a comma after DATA but the presence of a 
comma before the beginning of any other list of variable names in 


the same statement. | 


There must be a one-to-one correspondence between the number 
of variables that are to be given initial values and the number of 
constants within any one DATA statement. BRLESC gives an error 


print when there is not a one-to-one correspondence. 


The form of the constant determines the type of constant stored 
rather than the name of the variable. There is no check between the 


type of constant and the type of variable. 


To allow some compatibility with CDC FORTRAN, BRLESC also allows 
the CDC form of the DATA statement which has the general form of: 


DATA(vi = ¢cl),(v2 = c2), ... 


vhere vl is one variable name or one array name or one subscripted 
name, which may have DO-implying subscript information, and ci is 

one constant or enough constants, separated by commas, to satisfy 

the requirements for vl. Repetition of one or mae constants k times 


is allowed by "k(cl,c2,...)". 


Some examples of CDC DATA statements are: 


DATA(F=7.2), (X=.003) 
DATA((B(J),J=1,5)=1.0,2(5.3,8.1)), (LA=. TRUE. ) 
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XITI. SUBPROGRAM STATEMENTS 
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FORTRAN allows sections of a FORTRAN program to be designated 
as subroutines that may be used at many different places in the main ; 
program. The SUBROUTINE, FUNCTION, RETURN and END statements allow 
the programmer to define and name portions of his program as sub- 
programs and they provide information that allows the compiler to 
provide for the substitution of variables at run time and standard 


entry and exit methods used for subroutines. 


Any subprogram may use any of the FORTRAN statements within 
itself except SUBROUTINE and FUNCTION statements. Any subprogram 
may use any other subprogram or subroutine of any type, including 
arithmetic statement functions (See Section XIV) that are defined 
at the beginning of the subprogram. Recursive subprograms (sub- 


programs that use themselves) are not allowed. 
SUBROUTINE AND ADJUSTABLE DIMENSIONS 
SUBROUTINE a(b,c,d,e,...) 


This statement marks the beginning of a subprogram that 
we shall call a SUBROUTINE. The name of the SUBROUTINE is a and 
b,c,d,e,... are the names of nonsubscripted dummy variables that 
wili be replaced at run time by the actual variables that are listed 
in the CALL statement that causes this subroutine to be performed. 
The subroutine consists of the FORTRAN statements that follow this 
statement down to an END, FUNCTION or another SUBROUTINE statement. 


The name of the SUBROUTINE does not indicate the type of 


any result and hence any letter may be used as its first character. 


Except for the COMMON storage, all variables within a 
SUBROUTINE (or FUNCTION) are assigned storage that is unique and 
not used by any other part of the program. Thus the variable X may 
be used in several SUBROUTINES within a program and each X will be 
different unless it appears in the same relative position in COMMON 
statements in each of the SUBROUTINES. 
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No storage is assigned to the dummy variables; on BRLESC, 
DM will appear in the dictionary instead of an address. The type 
of a dummy variable, as indicated by its first letter or within 4 
TYPE statement, must agree with the type of all actual arguments 
that replace it. If a dummy variable is an array name, then its 
size must be defined-within the subroutine and the size must either 
be identical with the size of any actual variable used to replace it 
or else its size must be defined by other dummy variables. Dummy 
variable array subscripts in DIMENSION statements is a feature of 
FORTRAN IV and is not allowed in other versions of FORTRAN. This 
feature is commonly referred to as adjustable dimensions. It has 
the restriction that the dimensions specified in the calling sequence 
must actually be the maximum dimensions as declared in the calling 
program. Thus if the array A is declared to be (10x10), but actually 
has a (5x5) matrix stored there, then this 5x5 matrix cannot be used 
as an argument for a subprogram. (Most FORTRAN manuals indicate 
that it is legal to use less than the maximum dimensions as arguments 
and indeed there is no error check for this, however a normal FORTRAN 
subprogram will reference the wrong elements of the array when this 
is done.) However it is true on BRLESC (and probably any other com- 
puter that stores arrays by columns) that the last or rightmort 
dimension of the array does not have to be the maximum. Thus for 
the array A(10,10), the dimensions of (10x5) could be used as arguments 
of a subprogram. In particular, the dimension argument for a one- 


dimensional array does not have to be the maximum value. 
Example: SUBROUTINE POGO(A,XX,LO) 
FUNCTION a(b,c,d,...) 


This statement is similar to the SUBROUTINE statement but 
should be used whenever the subroutine has only one result. No 
dummy variable should be listed for the result as it is intended that 
the function will be used in an arithmetic expression and the result 


is simply used in evaluating the rest of the expression. 
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The name of the function is a and b,c,d,... represent 
nonsubscripted dummy variables. The name of the function does 
indicate the type of the result by its first letter and the final 
character must not be F if there are more than three characters in 
the name. For FORTRAN II, the first character of the name "a" must 
be I,J,K,L,M or N if and only if the result is integer. For FORTRAN IV, 
the type of the result may be declared before the word FUNCTION, e.g. , 
REAL FUNCTION, LOGICAL FUNCTION, etc. The type of other dummy vari- 
ables can be specified in a TYPE statement within the subprogram. 


Within the FUNCTION subprogram, some statement should 
store a value in a variable that has the same name as the name of the 
function and this will be used as the result. 


There must always be at least one dummy variable for 
FUNCTION subprograms. 


Example: FUNCTION LOW(Q1,T) 
LOGICAL FUNCTION FOUND (L,V,N) 


RETURN 


This statement may be used as often as desired within sub- 
programs (SUBROUTINE or FUNCTION) to indicate the point or points at 
which execution of the subprogram should stop and control should 
return to the program that is using the subprogram. It should always 


be used at least once in every subprogram. 


END 

This statement may be used at the end of any subprogram or 
at the end of the main program. It is not required on BRLESC. All 
program decks on BRLESC do require the very last card of the entire 
program deck to be a card that has an E in colum 1 or an * in 
column 1 with DATA in the statement field. 


The sense switch options allowed in END statements on some 


computers will be ignored on BRLESC. 
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Most computers other than BRLESC compile each subprogram 
as though it is a complete FORTRAN program and only provide a 
binary card deck that must be assembled with other binary decks to 
actually run the program. Hence they require an END statement at 


the end of each main program and each subprogram. 


For BRLESC, the main program and all the subprcgrams must be 
compiled at the same time and thus can be run without the use of any 
binary decks. BRLESC has a limit of 60 subprograms used in any one 


program deck. 
ENTRY a(b,c,d,e,...) 


The purpose of this statement is to allow multiple entrv 
points within subprograms. It is not a standard FURTRAN statement 
but some form of it is allowed in a number of FORTRAN IV compilers. 
The following description applies only to BRLESC. 


The name of the entry point is a and b,c,d,e,.... are the 
names of non-subscripted dummy variables. The name of the entry 
point a is used in a CALL statement for ENTRY statements in SUB- 
ROUTINES and is used in arithmetic expressions for ENTRY statements 
in FUNCTION subprograms. 


The dumiy variables in an ENTRY statement do not have to be 
the same as those in the SUBROUTINE or FUNCTION statement for the 
subprogram in which the ENTRY statement appears. However, a dummy 
argument may not appear in any statement (including DIMENSION) 
unless it has previously been declared to be a dummy variable by 
appearing in a SUBROUTINE, FUNCTION or ENTRY statement. On BRLESC, 
the ENTRY statement must also physically precede all of the appearances 
of any of the dummy variables that will actually be used in executable 
statements for that entry to the subprogram. (This is the only 
essential difference between 7090/7094 FORTRAN and BRLESC ENTRY state- 
ments. 7090/7094 FORTRAN allows dummy variabies to be used both 
before and after the ENTRY statement.) 
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The name of the result in a FUNCTION subprogram cannot 


be an ENTRY name. Only the name appearing in the FUNCTION statement 
is allowed as the name of the result. 


ENTRY statements are non-executable and normal control 
may pass through them without doing the initializing of the 
arguments for that ENTRY. 


BRLESC has a limit of 100 clummy variables and ENTRY names 
in ENTRY statements within one complete program. 


CDC FORTRAN 66 allows ENTRY statements without dummy 
variables. It uses the original dumry variables automatically with 
each ENTRY. 


Example: ENTRY TRY2(V,R) 


BLOCK DATA 

Most FORTRAN compilers do not allow the DATA statement to 
store constants into variables that are in li eled COMMON unless an 
extra subprogram that begins with a BLOCK DATA statement and contains 
the necessary declarations and one or more DATA statements is used. 
This subprogram must not contain any executable statements. It must 
contain one or more COMMON statements that list all of the names that 
are in any of the labeled COMMON groups that is to receive constants 
from a DATA statement. It is not permissible on most computers for 
any DATA statement to store into a blank COMMON variable; however 
this is allowed on BRLESC. 


The use of BLOCK DATA is not necessary on BRLESC but it 
should be used to maintain compatibility with other computers. BLOCKD 
will be used as the name of the BLOCK DATA subprogram in a BRLESC 
dictionary. 


54 


a eee oe 


Example: BLOCK DATA 
DIMENSION A(6) 
LOGICAL LA 
COMMON/B1/R,A/B2/V, LA 
DATA LA,A/. TRUE. ,6*1.0/ 
END 


XIV. PREDEFINED FUNCTIONS AND ARITHMETIC STATEMENT FUNCTIONS 


FORTRAN subroutines are separated into two classes, (1) functions 
are those subroutines that have only one result and hence may be used 
in arithmetical expressions; and (2) SUBROUTINE subprograms (See 
Section XIII) or other subroutines that may have more than one 


number as a result and may be used only by CALL statements. 
Functions 
There are three methods of defining a function. They are 


1. Predefined functions that may be used by using the 
predefined name. 

2. Arithmetic statement functions. 

3, FUNCTION subprograms. (See Section XIII) 


Predefined Functions 


Appendix A lists the predefined functions that are allowed on 
RRLESC and most computers. Both the FORTRAN II and IV names are 


listed for each function and either name is allowed on BRLESC. 


Naming Functions 

For FORTRAN II, predefined function (and arithmetic statement 
function)names must always end with F (a total of seven characters 
are allowed) and must begin with X only if the result is an integer. 
Variables must never be given a name that is the same as any of the 
function or subroutine names either with or without the terminal F. 
For BRLESC, the terminal F is not necessary when the initial ° tter 
of the predefined function name indicates the preper type of result 
but is necessary in both the definition and use of arithmetic state- 
ment functions. 


For FORTRAN IV, all function names indicate the type of result 
in the same manner as other variable names, i.e.,either the initial 
letter determines the type or the type is declared in a TYPE or 
FUNCTION statement. For both FORTRAN II and IV, the naming of 
FUNCTION subprogram functions uses rules that are the same as for 
uaming arrays. An initial letter of I,J,K,L,M or N indicates an 
integer result and the last character must not be F if there are more 
than three characters in the name. For FORTRAN IV, a type declaration 
may precede tne word FUNCTION in a FUNCTION statement, e.g.» INTEGER 
FUNCTION RAY(V). 


Use of Functions 


Any of the three types of functions may be used in an arithmetic 
expression by writing its name in front of a pair of parentheses that 
enclose the list of arguments. The arguments must correspond in type 
and number to the dummy variables used in defining the function. Suc- 
cessive arguments are separated by commas and they may be arithmetic 
expressions. 

For BRLESC, any function may also be used in a CALL statement 
by including an extra variable name that specifies where to store the 
result. 
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Arithmetic Statement Functions 


Arithmetic statement functions are functions that can be and are 
defined by one arithmetic statement at the beginning of a program 
(or subprogram). The name of the function followed by the dummy 
arguments enclosed in parentheses are written to the left of the 
= symbol. The arithmetic expression that deseribes the function 
in terms of the dummy variables is written te right of the = symbcl. 
The duwnmy variables cannot be subseripted. Any variable used in 
the expression that is not a dummy variable will be identical to 
the variable of the same name in the program (or subprogram) in 
which the statement is contained. (An arithmetic statement function 
definitic: normally only applies end can be used only in the program 
or subprogram in which it Is iocated, however BRLESC allows them to 


be used anywhere within the complete program. ) 


An arithmetic statem nt function may use any of the other types 
of functions and may also use other previously defined arithmetic 
statement functions. All arithmetic statement functions must pre- 
cede the first statement that gets executed in the program or sup- 


program, 


If the aritnmetic statement function name does not indicate the 
proper type of result, then its name must appear in a TYPE statement. 
When at. arithmetic statement function name appears in a TYPE statement 
un BRLESC, it must also be put in an EXTERNAL statement tht appears 
after the TYPE statement and this pair of statemmnts must appesr tn 
every subprogram that uses the arithmetic otutement “isetaon. Tut 
that on BRLESC, an F as the Sth,5th,©i:, or 7th and last character 
in the name causes a leading X cy its absence to Indicate integer or 
real result respectively while the absence of such 2 final F causes 
the normil T-N check on the leuding character. However the usage of 


4 TYPH atntement will cverride both of these shecks. 
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The dumy variable names used must indicate the same type of 
arithmetic that is required when the function is actually used. 
When the initial letter of a dummy variable does not indicate the 
proper type, it may appear in a TYPE statement before the arithmetic 
statement function. When this is done, the BRLESC dictionary will 
not have the variable marked as a dummy variable, but the program will 


be correct. 
Example of defining an arithmetic statement function: 
FUN(A,B,C) = A*¥2 - SIN(B*C)+C 
Example of using this arithmetic statement function: 


T = Q + FUN(X,S + EXP(W*2),14.) seg 


XV. PREDEFINED SUBROUTINES 


A subroutine may be predefined and exist on the compiler tape 
_or it may be defined by a SUBROUTINE subprogram. (See Section XIII.) . 
‘Subroutines may be given any valia name (no restrictions on the first. 
_or last letter) and may only be used by a CALL statement. 


The following subroutines are predefined in BRLESC FORTRAN: 


SETMSI (j) Set minus sign for input. 

SETPSI (j) Set plus sign for input. (Not necessary, 
anything not minus is plus. ) 

SETMSO (j) Set minus sign fcr output. 

SeTPSO (j) Set plus sign for output. 


where j is an integer constant: 


O means blank. 
1 means y(12) punch. 
2 means x(11) punch. 


3 means x or y punch. 


SEXAPR(A,B) Sexadecimal print from A to PB. 
BINPUT Goes to binary input routine after saving a 
return jump instruction in 073. 
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integer or fl.pt. 
SINCOS(A,B,C) Computes B = SIN(A) and C = COS(A). 


| POWERS(A,B,C) Computes C = A**B where B may be 
l 
| Additional predefined subroutines may be added in the future. 


XVI. FORTRAN PROGRAM CARDS 


BRLESC FORTRAN uses the same card format for punching FORTRAN. 
programs that is used by other computers. 


Columns: 
1-5 -  §tetement number (integer). . 
6 Continuation Card if not zero or blank. 
T - T2 One FORTRAN statement. 
73 - 80 Identification. 


The statement number must be a decimal integer. Leading zeros 
are ignored. Trailing blanks are also ignored on BRIESC and most 
‘computers. . 


Column 1 is also used to indicate special types of cards. The 


following list shows the special characters that indicate special cards: 


Comment card. Columns 2-80 may be used for comments. 


* 7090/7094 monitor cara or BRLESC control card. 

B Boolean statement card. (FORTRAN IT) 

D Double Precision statement card. (FORTRAN IT) 

I Complex Arithmetic statement card. (Not allowed on BRLESC.) 
F Used to specify names of subroutines used as arguments. 


(FORTRAN II) E siete 
$ BRLESC only, used for BRLESC assembly order cards and 
some other special BRLESC cards. (% is used until 
January 1967.) 
7-8 End-file signal on 7090/7094, ignored on BRLESC. 
E BRLESC only, is last card of program deck. 
i 
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Column 6 is used to mark cards that are a continuation of the 
previous curd. It is used as a continuation if Colum 6 contains 
any character other than zero or blank except for an initial identi- 
fication control card and all comment cards. BRLESC does not limit 


: the number of continuation cards allowed for one statement but some 


other computers do have some limit. 


Columns 7-72 contains information » one or more statements, 
comments, control information, etc. depending on the type of cards 
as indicated by Column 1. BRLESC will allow more than one statement 
per card if the symbol $ (> until January 1967) is used to separate 
the statements. A special program is available for compacting and 


repunching a FORTRAN program so that it will have more than one state- 
ment per card. 


Columns 73-80 are ignored by BRLESC and may contain any desired 
identification. 


Blank columns are ignored except when they are in an H field in 
a FORMAT statement or alphanumeric constants. 


- Blank cards will be ignored on URLESC. 


Note that it is permissible to use FORAST coding sheets to write 
FORTRAN programs. The key punchers must not use Column 6 as part of 
tne statement number and must not allow a statement to go past Colum 


72. It does not matter whether the statement starts in Colum 7 or 
ll. 


F Cards 


If the name of a subroutine or function (either predefined or 
defined by a subprogram) is used as an argument for another subroutine 
function, its name,usually without the terminal F, must appear on a 
card with an F in Column 1. This F card must be in the program (or 
subprogram) that uses the subroutine as an argument and may be anywhere 
within that program. 
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The names of the subroutines are to start in or beyond Column 7 


and are separated by commas. 


Example: F SIN, EXP, FUN3, AT. 

On BRLESC, the terminal F is t> be omitted from those function 
names that have an initial letter that indicates the proper type of 
result according to the I-N rules. It must be retained on those 
names that do not indicate the proper type of result, e.g., LOGF , 
MAXOF. This same rule for the terminal F applies where the name is 
used as an argument for a subprogram. When programming a subprogram 
to accept a function name as an argument, the dummy variable should 


end with F only if the initial character does not indicate the proper -. 


type of result. If a final F is used with at least three other 
characters, then the result type is integer only if the name begins 
with X. 


For FORTRAN IV, the EXTERNAL statement replaces the F card and 


serves the same purpose. 
XVII. BRLESC CONTROL CARDS AND DICTIONARY PRINTING 


The use of certain control cards are alloweaé to affect the compi- 
lation of FORTRAN programs. Most of these apply to BRLESC FORTRAN . 
only, although some are also used on 7090/7094, All of the control 
cards are marked with an * in Column 1 with the control information 


starting in or after Column 7. 


* The first card of a program that has an * in Column 1 
is used as identification and is printed in front of the 
PUNCH output. Columns 2-80 may be used. (On all other 
cards with * in Column 1, only Columns 7-72 may be used.) | 
The first thing after the * should be the official problem 
number followed by a blank column and this should not 


extend beyond column 20. 
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used initially. (After January 1967, this card will not be 
allowed and will cause an error print.) . 


: a 
SETSSW sam 4 


This control "statement" allows sense switch i to be 
"preset" either UP or DOWN. By using this control card, 
the operator can be relieved of actually setting the sense 
switches. 


PRTOPU 
This control statement causes the compiler to translate 


ali following PRINT statements as though they were PUNCH 
statements. (Allows card output instead of tape.) 


RTTORC 

This control statement causes the compiler to translate . 
all following READ INPUT TAPE, INPUT or READ(t,f) statements | 
as though they were READ statements. (Use card input instead 
of tape.) | 
WITOPU 

_ This control statement causes the compiler to translate 
all following WRITE OUTPUT TAPE, OUTPUT or WRITE(t,f) state- 
ments as though they were PUNCH statements. 


WITOPR 
This control card causes the compiler to translate all 


following WRITE OUTPUT TAPE, OUTPUT or WRITE(t,f) statements 
as though they were PRINT statements. 
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SYMBOL TABLE 
Either of these causes the storage dictionary to be 


printed. The asterisk in Colum 1 is not required on the 
LIST card. . 


The dictionary is printed with names of variables _ 
arranged in alphabetical order within each subprogram. 
Function and subroutine names will be preceded by two 
asterisks. Main program names will be preceded only by 
‘two blanks and subprogram names will be preceded by one 
character and one asterisk or period. The character pre- 
ceding each subprogram name will be 15255 555;9,AlBsveit 
corresponding to the sequence in which the subprograms 
appeared in the program deck. The name of each subprogram 
' will appear on a separate line before the dictionary for 

that subprogram. If more than 30 subprograms are used, 
some dictionaries for two subprograms will be mixed to- 
gether with both subprogram names preceding that section 
of the complete dictionary. When this occurs, those names 
preceded with an asterisk are from the subprogram whose 
name appears on the left side of the subprogram name card 
and those names preceded with a period are from the sub- 


program whose name appears on the right. 


Following each name will be the sexadecimal memory 
address that has been assigned to the name. Following 
this address, any of the following letters may appear: 


A indicates an array name. 

I indicates an integer variable. 

L indicates a logical variable. (FORTRAN IV) 
C indicates the name was in a COMMON statement. 
E 
U 


indicates the name was in an EQUIVALENCE statement. 
indicates the name was used only once. 
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Statement numbers are printed at the right end of the 
~ gix character name position and therefore always precede 


the names of. the variables in any subprogram. ‘The compiler 
usually adds a few names to the dictionary to indicate 
temporary storage and special subroutines. The name $SUBS. 
is printed usually at the end of the dictionary to indicate 
the length of the predef*ned subroutines. The subroutines 
extend from this address down through 0103L and includes all 
of the input-output storage and subroutines. The $NOS. name 
printed usually as the next to last name in the dictionary: 
indicates the length of the "constant pool". This storage, 
from OSO down to but not including the address printed after 
$NOS., is used to store the constants and the “array words" 
required by the program. The $LAST entry printed with the 
dictionary indicates the largest address used by the program 
with the possible exception of some tape buffers at the end of 
the memory. 


For array names, the address printed in the dictionary is 
the initial address of the array. 


The names of all the COMMON variables used within a 
subprogram may not appear in the dictionary for that subprogram. 
When the common statements of a subprogram are processed, a 
check is made to determine if the names and required storage 
are the same as those for the main program. All of the names 
up to the point of the first disagreement in name or storage 
are deleted from the subprogram dictionary. If the subprogram 
common statements are identical to the main common statements the 
then the words MAIN COMMON are printed preceding the subprogran 
dictionary. If tne first common name of the subprogram disa- 
grees with the first common name of the main program, then the 
check and deletion explained above is made with the common 


statements of the previous subprogram. 
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If the subprogram common statements are identical to the - md 
previous subprogram common statements then the name of the 

| previous subprogram foliowed by COMMON is printed preceding 

. the scubprogram dictionary. 


Names in COMMON are assigned last, so the last name in 
the COMMON assignment within the subprogram that has the 
most COMMON storage will mark the end of all the storage 
used by the program. The instructions for the program and 
all the subprograms are stored first, then all the variables 
not in COMMON are assigned storage immediately after the 
instructions and this is followed by those variables in COMMON. 


LISTS 
LIST (S.CODE) 

Either of these control cards causesthe dictionary and 
the sexadecimal code for the entire program to be printed. 
Four instructions are printed on a line with the address 
of the first one printed at the beginning of the J]ine. 

The * in Column 1 of LIST (S.CODE) may be omitted unless 
LIST is the name of an array. 


* LIST (B.CONE) 

This control card causes the entire program and the 
subroutines it uses to be punched on binary cards with 
absolute add.esses. To use this deck to run the progran, 
it must be preceded by a binary input routine and followed 
by the standard set of FORTRAN input-output routines and a 
jump to 073. The * in Column 1 may be omitted unless LIST 
is the name of an array. 
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XVIII. BRLESC ASSEMBLY ORDERS 


ecards that have a $ in column 1 (% is used instead of $ until 
January 1967). The same general form as used in FORAST is allowed, 
but not the. special processing of addresses, formilas, etc. FORTRAN 

: statements mst not be put on the same card with assembly orders, 
‘put more than one assembly order may be put in columns 7-72 by. 
separating them with a $ symbol. The general form of each order ‘s 
like FORAST, i.e.,OI(A)B)C$ where "(" after ")" is optional, the 
last ")"° and the last $ are optional and less than three addresses 


{ 

if 

| | BRLESC FORTRAN allows BRLESC assembly orders to be written on 
| 

| 

is permitted. omments may follow $$. 


| For BRLESC assembly orders: 


| Col.1 $ (% is used until January 1967) 
Cols.2=5 Blank, statement number ct symbolic name 
\ is allowed. 
Col.6 Normal FORTRAN continuation column. ($ in 


col.1 not required on continue cards. ) 

: Cols.7-72 One or more BRLESC assembly orders. 
Cols.73-80 Identification only. 

The following symbolic order types are the. only ones allowed: 


| ( A B SET J- 


J- order type. 
i 6 


zo MI 

: 7 Ss cB 8I TAPE NOP IM 

| M CEQ INC CARD RSW = RCL 

| D oN II ZERO MMF 

' c CNEQ LP sly IPL 

| SORT PMA J 13 MG 

! | se IT ©=8=6sS EA SHA 
2 | T HALT J+ JA TNC 
\ | The syubolic parameters of X,F,A or +,V,R, are alloved with 
i | the same meaning as used in FORAST. ‘The X and F cannot be written 
before the order type and a minus sign is ignored except for the 

Pa 
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A decimal parameter is also allowed. All arithmetic orders, 
including SHift, are floating point unless X parameter is used. 


A GOTO statement with one address is allowed but none of the 
other general FORAST statements are allowed. 





No assembly orcer may have more than three addresses including 
SET and INC and they cannot include ea GOTO. However any of the 
orders that set or increase index registers may be written with an 
| = like FORAST allows. Index registers cannot be increased by a 
negative amount. 


A comma is used to indicate indexing in the same manner as 
FORAST. Constant increments (and decrements on symbolic addresses) 
are allowed. All index addresses must be absolute, decimal or sexa- 
decimal. Addresses 13-23(0J-O1N) and 48-55(040-037) are not pre- 
sently used for anything in FORTRAN compiled programs. Dummy variables mst 
never be ip*exed and variables that might be assigned to a "large 
address" must not be indexed. “Large Addresses” may be used anywhere 
as long as they are not indexed. (FORTRAN allows large addressing by 
using indexing automatically on all large addresses. ) 


FORTRAN array subscripting is not allowed in any BRLESC asserbly 
orders. When an array name is used by itself, it references the 
“array word", not the first element of the array. 


Dec‘iual addresses are allowed a24 sexadecimal addres -es must have 
a leading zero. Statement nusbers used for an address must zither be 
preceded by "S/" or followea ty an S. Decimal numbers must be pre- 
ceded by an * end may be sither a FORTRAN integer or floating point 
constant. Fixed point fractions are not allowed. Sexadecimal con- 
stunts may be written following a leading */" and may use M,A and Z 
as allowed 11 FORAST. | 
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There is no special processing of any addresses like there 


is in FORAS? for 6 of SH,JA,JNA,JC,JNC and 7 of I/O orders. These 


addreeses should normally be written in sexadecimal. 


Names of subroutines may be used as an address only by pre- 
ceding each one with "F/" or including each one in an EXTERNAL 
statement or on an "F card”. 


Decimal increments and decrements are allowed on symbolic 
addresses and may be written either before or after the index name, 
e.g. At2,14 or A,14+2. SELF is also allowed to refer to an order's 


own address. 


Symbolic names may be assigned absolute addresses by using a 
SYN statement on a $ card. SYN may be followed by any number of 
pairs of parentheses that enciose one symbolic address and one 


absolute address separated by "=". An example is: 
$ SYN(A=030)BP=942) (OL00=21)$ 


Note that "("after")" is optional and that $ at the end indicates 
that the rest of this card will not be used. 


A group of sexadecimal or decimal constants may be stored by 
using a SEXA or DEC statement on a $ card. Any number of constants 
may be put on one card: but no other statements or assembly orders 
are allowed on the same card. Constants are separeted by parentheses 
with "(" after ")" being optional. For sexadecimal constants, Z ; 
indicates a string of zeros , A a string of five sexadecimal zeros 
and Ma string of five sexadecimal L's. Any legal FORTRAN decimal 


constant may be written on a DEC card. 


eaice $ — SEXA(L)08Z)(10K282)ha$ 
$  DEC(14)3. )6.1E-3)$ 


Some examples of BRLESC FORTRAN assembly orders are: 


$  AV(F)*7.1)T1$ SHX(Q, 2)0286 )o$ 
TAPE(SS2B)360)017 $ SET(15=0)3=1$ 
ING(2=2+1)21=214+4)$ CNEQ(W)/2A)ha5$ 
BL2(R-1, 4) )TT$ TP10)12)/M)SELF+2$ 
JS(A)A+50)(F/SEXAPR)$ GOTO( TEST) $ 
029(07000)S, 24-2 )IT$ MMF(1,6)300)08000$ 
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XTX. MAXT?Ui | (ME AND OUTPUT SPECIFICATIONS 


BRLESC FORTRAN allows the programmer to control the maximum 
amount of time a program wiil be allowed to run and the maxinum 
amount of output it will be allowed to print. If the programmer 
does not specify these maximums, BRLESC will set them at five 
minutes and 1200 lines. Whenever either one of the specified 
maximums is ~xceeded, BRLESC will stop the execution of the program 


after the appropriate error print. 
Maximum Time 
The maximum time specification is of the form 
$  MAXT(integer number /MINS. 
where the initial $ is in colum 1(4% instead of $ is uged until 
January 1967) and the rest of the specif‘ ation is in colums 7-72. 
"MINS." may be replaced with "HRS." or "SECS." to specify hours or 


seconds instead of minutes. Note that fractions of time units are 


not allowed. 


The time begins when this card is encountered by the compiler 
and hence some compilation time must be includec when estimatin, the 


maximum time. 
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If the statement number 98765 has been used, BRLESC jumps to 
thet statement when the maximur time has been exceeded. If 98765 
has not been used as a statement number, BRLESC gives the following 


error print: 


EXCEEDED MAXT. Tl= s OCTAL AR.REFS.= abc CLK= cr 


where s is the octal contents of index register 1, a,b, and c ere 


the octal contents of indexes 10,11 and 12 respectively which are 


_ the last array addresses referenced, andcr is the clock reading 


at the time of the error print. This clock reading contains six 
digits, two each for hours, minutes and hundredths of minutes. 


‘This same errcr print is obtained if BRLESC stops for some reason 


during execution of a FORTRAN programard tie clock reading can be 
compared with the initial time to determine how long the program 
ran before it stopped. 


Examples: 
$  MAXT(3)MINS. 
$  MAX™(90)SECS. 
& MAXT(2)HRS. 
Maximum Output 


The maximum output specification is of the form 
$  MAXO(integer nunber)LINES 


where the initial $ is in column 1 (% instead of $ is used until 


January 1967) end the rest of the specification is in colums 7-72. 


Blank lines caused by sleshes in formats count as lines; however 

any lines skipped by using v2rvicai control characters do not count. 
All tape or card alphanumeric output is inciud:d in the counting of 
lines but binary tape output {ts not included. 


Note that MAXO ends with the letter 0, not zero. 
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When the specified amount of output has been exceeded, BRLESC 
will not go to statement number 98765. It gives an error print of: 


EXCEEDED MAXO AT s OCTAL AR.REFS.= a b c CLK= cr 


where s is the octal address of the statement that caused the output 
maximum to be exceeded, a,b and c are octal addresses of the last 
array elements: referenced and cr is the clock reading at the time of 


this error print. 


Examples: 
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$ — MAX0(500)LINES 
$  MAXO(20000)LINES 
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It is permissible for MAXO and MAXT specifications to be on the 


same card with each other or with BRLESC assembly orders. 


XX. STATEMENT NUMBER 98765 


The statement number 98765 may be used to obtain some extra 
printing after a program fails to run to completion or exceeds the . | 
maximum time. When an unexpected machine halt occurs, the operator 
manually causes BRLESC to go to statement 98765 if this statement | 
number was used, At 98765, the program should do a limited amount of 
printing that could be helpful in determining where and why the pro- 
gram stopped and then should do a STOP statement. 


Each link of a CHAIN job may have its own 98765 statement. 
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XXI. CHAI™ JOBS 


BRIESC FORTRAN allows segmentation of large programs by using 
CHAIN control cards and a CHAIN subroutine. BRLESC is essentially 
compatible with 709/7090 FORTRAN in the way this is done. Each 
"link" of the chain must be preceded by a control card of 


* CHATN(R,T) 


where R is an identifying integer number (less than 32768 on 709/7090) 
and T is a tape unit designation of any two alphanumeric characters 
(mist be B2,B3,A4 or Bl on 709/7090). BRLESC always uses tape 7 

for storing links. Each link consists of a complete FORTRAN program 
with a main program and all of its subprograms. 


Any link may during execution begin execution of any other link 
by executing a CALL CHAIN(R,T) statement where R and T both are used 
to identify the link that is to be executed next. 


Data may be passed from one link to the next one through COMMON 
storage only. No program should assume any other storage is pre- 
served from one link to the next. There is a chance of incompati- 
bility between BRLESC and cther computers if links that have short 
programs with long COMMON are mixed with links that have long pro- 
grams with short COMMON. When this incompatibility arises, an error 
print of CH.COM.BIF occurs. 


Sense switches that are preset with BRLESC control cards will 
remain preset in all following links unless the link contains a new 
preset card. Other control cards will not afti'ect following links 
except a LIST card will cause dictionary printing in all following 
links. 


DATA statements may not be used in chain jobs. 
When labeled common is used in chain jobs each link must contain 


all of the labels. The labels must appear in the same order in each link. 
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XXII. BRLESC COMPILER ERROR PRINTS 


The BRLESC FORTRAN compiler checks for a limited number of 
types of errors in the program it is compiling. It definitely will 
not find all possible errors, but some errors will cause one of the 
error prints listed below. The type of error can be recognized 
either by the number that follows the word ERROR and precedes the 
comma or by the “error word" that is printed. The form of the 


error print is 
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FORTRAN ERROR t,m Error Word Ident. W First 30 cols. of *Ident.Card 


where 
fe = type or error . | 
mm <* = ten col. field at which error was detected; m=0,1,...,7 
Error word = ten alphanumeric characters that describe the type 
of error as listed below. | 
Ident. = cOls.73-80 of card at which error was detected. 
W = rest of the mth field on the card at time of | 
error detection. | 
TYPE ERROR WORD DESCRIPTION 
1 ILL.CHAR. Illegal character on program card. 

2 SYM.ST.NO Symbolic statement number, not all decimal digits. 
3 MIXED EXPR Mixed expression, integer and fl.pt. arithmetic. 
4 INT**FLT Integer raised to fl.pt. power is illegal. / 
5 IL.RETURN Illegal RETURN statement, used in main program. | 
6 NO = IN DO No equals symbol at proper place in DO statement. | 
T SUBPRS.>60 Tried to compile more than 60 subprograms. 
8 BIG ADD.ID Big address is indexed. Program is too big. | 
9 NO, CP.GOTO No comma at proper place in computed GOTO statement. | | 
10 ILL.STAT. Illegal statement. 
11 FLT.INDEX Subscript involves a fl.pt. number. nl 

12 ILL.DIM. Number of subscripts is not same as dimensionality 


of the array. 
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25 
26 
28 
29 
40 
31 
32 
33 
zh 


39 
36 
aT 


29 
40 


ERROR WORD DESCRIPTION 
Ts. COMMA Comma is used improperly in an arithmetic 

expression. 

ASD.ST.NO Assigned statement number; same. statement 
number used twice. 

COMPLEX AR Complex arithmetic cards (I in Column 1) not 

| allowed on BRLESC. 

EQU. TABLE EQUIVALENCE table is full. 

COM. ASGND COMMON name was previously assigned. 

ARRAY .REF Array name used before it was defined. 

DICT. FULL Dictionary is full. | 

COL.7 NO. Statement begins with a decimal digit. 

SENSE > 6 Sense light or Sense Switch number greater than 6. 

DO NO END Statement number used in DO never appeared. 
(It may have been missed due to another error. ) 

IL. EQUALS Illegal = symbol or arithmetic was specified on 
the left of the = symbol. 

IL. - BOOL Illegal "not" operation on boolean card. 

IL. / BOOL = Boolean division is undefined. 

IL.**BOOL Boolean exponentiation is undefined. 

DRUM STAT. Drum statements not allowed on BRLESC. 

IL.IO LIST Illegal input-output list. 

SAP CODE An * FAP card is not allowed on BRLESC. 

BAD TAPE 7 Temporary tape 7 gives persistent parity errors. 

NO IDENT * No identification card et beginning of program. 

N>6 IN NH Alphanumeric constant of more than six characters. 

CONST POOL The constant pool is full. 

LABEL COMM More than 32 different COMMON labels. 

COM. TABLE © The COMMON table is full. 

STP FULL More than 800 dummy variable references. 

DOT FULL More than 63 nested DO loops. 

ATP FULL More than 64 dummy variable references in an 
arithmetic statement function. 
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TYPE 
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hd 

ks 

“6 
47 
| 48 
4g 
50 
51 
52 
53 
5h 
by) 
56 
57 
58 
59 
60 


61 
62 
63 
64 


ERROR WORD 


ARG FULL 
FTB FULL | 
I>352 IN AE 


ILL. EQUIV 
NON-SEXA. 
IL.AS.O,T. 
IL.AS.ADD 
NO $ AS.O. 
NON-DEC 
IL.AS SYN 
DM VAR ID. 
NOT , OR ) 
STPE FULL 
SEL FULL 
DIM. COMMA 
LONG I NO. 
DUPL. COM. 
MAXTO NO I 
EXTRA PUNC 
BAD L.NAME 


DATA BAD = 
DAT. IL.No. 
DATA FULL 
HUNG UP 
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DESCRIPTION 


More than 100 subprogram erguments. 

More than 50 subroutine names on F cards. 
Arithmetic expression has too many operations 
grouped to the right. 

Illegal EQUIVALENCE statement. 

Illegal character in a sexadecimal word or address. 
Illegal BRLESC assembly order type. 

Illegal BRLESC assembly address. 

No $ symbol at end of BRLESC assembly order. 
Improper character in a decimal number. 
Illegal SYN statement. 
Dummy variable was indexed in assembly order. 
Improper punctuation. 

More than 600 ENTRY dummy variable references. 
More than 100 ENTRY names and dummy variables. 
Missing comma in DIMENSION. 

Integer constant of more than 17 digits. 
Duplicated name in COMMON. 

Number on MAXT or MAXO card is not an integer. 
Extra punctuation symbol. 

Bad logical operation or relation name or 
illegal period. 

Equal symbol at illegal place in DATA statement. 
Illegal number in a DATA statement. 

Too much data in DATA statements. 

Computer stopped during compilation. 


ERROR. DATA STAT. NOT ONE TO ONE CORKESPONDENCE BETWEEN NAMES AND 
NUMBERS. (Self explanatory) ; 
FORTRAN ERROR, INDEXED LARGE ADDRESS. 3 PREV. ORDS. + PART ORDER ON 


NEXT LINE. 


An assembly order address larger than 16384 was also indexed. 


TAPE 7 REACHED END OF TAPE DURING CHAIN COMPILATION PLEASE TRY AGAIN. 


(Self explanatory. ) 
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ERROR TAPE 7 FORTRAN 


- If the right end of this error print line says "PARITY ERROR", 


4% was caused by a persistent error on temporary tape 7. If the 


line ends with anything else, it is a name that cannot be found in 
the dictionary and this usually indicates a machine error. 


It must be remembered that the above mentioned cause is only 
the probable error. Sometimes some type of undetected error later 
causes one of the detected error prints at a point where no error 
exists. It also happens that some errors are not detected until the 
next card has been read. (W =m = when this happens. ) 


After each error print, the entire card that the compiler 
currently has in the memory will also be printed. (If W=m = 0, the 
error was probably on the previous card, otherwise it probably is the 
card that contains the error.) 


XXTII. BRLESC RUN ERROR PRINTS 


Some of the predefined FORTRAN subroutines used on BRLESC detect 
certain errors in the data they prccess. When such an error is 
detected, a RUN ERROR line is printed and the program is not allowed 
to continue to run. The error print consists of one line of infor- 


mation of the following form: 
RUN ERROR “Error word" Date Cols.1-%0 of Ident.Card LE No. 


where "Error word" is an alphabetic word that identifies the type of 


error. 
Date is the date. 
LE is the location (in decimal) of the entry to the 
subroutine that detected the error. 
No. is a number that in some cases was an illegal argument. 


76 








i 
| 
i 


ey RE BRR rien a EE ge ce en re ba Rede: elak mec camp Mrs RR ERT a naesenie 2 oe 


Run Error List: (X and Y represent arguments. ) 


ERROR WORD 


LOG X NEG 
EXP BIG X 
ARCSIN i+ 


SINCOS NS 


POWER OTO- 


CVFTOI BIG 


FRROR_ WORD 


END TAPE t 
TAPE TKA u 


TAPE TKB u 
BAD FORMAT 
NO( FORMAT 


LONG LINE 
MACH TAPE- 


CH.COM. BIG 


CHAIN ID. 
CHAIN PAR. 


SUBROUTINE REASON NO. 
LOGF or ALOG x <0 x 
EXPF or EXP X > 354.89 X/Log,* 
ARCSINF or ARCSIN xX > 1+2-49 |x| 
ARCCOSF or ARCCOS 
SINF or COSF \x|/an > 16°? X/2n 
or SINCOSF 
SIN or COS 
POWERS X=Oand Y <9 Zero 
(i.xponentiation) 
XINTF or XFIXF Ix}2 162" x 
INT or IFIX 

EXPLANATION 


Tried to read beyond information written on tape t. 
Persistent tape error on trunk A where u is actual 
tape switch number and "no." is total number of tape 
errors. 

Same as TAPE TKA u except error is on tape trunk B. 
Illegal character in a FORMAT statement. 

More right parentheses than left parentheses in a 
FORMAT statement. 

Output line is more than 170 characters. 

Machine tape error of setting negative sign bits when 
there wasn't any parity error. 

Tllegal combination of large and small COMMON in 
CHAIN links. 

A CHAIN 2.:nk called is not on the tape. 

Persistent tape 7 parity error when reading a CHAIN link. 


EXCEEDED MAXT Exceeded maximum execution time or did not run to normal 


completion. (See Section XIX) 


EXCEEDED MAXO Exceeded maximum amount of output. (See Section XIX) 


TT 
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XXIV. OPERATION OF THE BRLESC FORTRAN COMPILER 


The BRLESC FORTRAN compiler exists on magnetic tape in much the 


‘game manner as the FORAST compiler and operates in a very similar 


manner. Many copies of the compiler and the predefined subroutines 
are on one tape and the tape reading is arranged so that it is 
checked and automatically corrected by using the next copy on the 
tape. The tape automatically backs wp twenty copies after the las. 
copy on the tape is used. Normally, successive copies are used for 
compiling successive programs. 


Much of the translation is done concurrently with the reading 
of the program cards (or tape). The partially translated code is 
put on a temporary tape and the dictionary and constant pool are 
kept in the memory. After the last card of the program is read 
(E in Column 1 or * DATA), all unassigned symbols in the dictionary 
are assigned etorage. The memory that will be used by a program is 
cleared to zeros and then the temporary tape is read, the translation 
of each instruction is completed and it is stored in the memory for 
running. Programs are storec from 01040 and may extend to the end 
of the memory. Next, the subroutines are read from the compiler tape 
aud the ones needed are stored backwards from 0840. (The standard 
input-output routines occupy 0860-1031. ) 


The efficiency of the generated code is good except for the 
referencing of arrays with variable subscripts. Such one aimensional 
referencing causes one extra order to be done,two dimensional reference 
ing causes two extra orders to be done and three dimensional referenc- 
ing causes four extra orders to be done. These orders are extra in the 
sense that they would not be needed in the corresponding FORAST or hand- 
coded programs. Subscript expressione and other arithmetic expressions 
are evaluated as they are written except that instructicns involving 
only constants will be done at compile time. The compiler does not 
presently make use of the "accumulate" option allowed on BRLESC in- 


structions. 
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XXV. SPEED OF BRLESC FORTRAN COMPILING 


The BRLESC FORTRAN compiler is very fast and hence is designed 
for "load and go" operation. Programmers are encouraged to kee.) 


me ue their FORTRAN programs in symbolic form and translate them each time 
they are run. This wastes very little if any computer time and is 
i. Vs most convenient for the programmer. 
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Most of the translation is done concurrently with reading the 
program cards at the present maximum speed of 800 cerds per minute. 
The total time required for translating a program consisting of 
C cards can be approximated by the formula: 


time in secs. = 2 + C/13 + C/75 


The 2 seconds is compiler tape time, the C/13 is card read time and 
C/75 allows time for reading the temporary tape and completing the 
translation. If the program to be translated is put on tape off-line, 
the C/13 term can be reduced by at least one-half. So the translation 
rate is about 700 statements per minute from cards or about 1500 
statements per minute from tape. (The tape rate will vary consider- 
ably with the complexity and length of the statements being translated. ) | 
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XXVI. RUNNING FORTRAN PROGRAMS ON BRLESS | 


The following list summarizes the steps for compiling ani running 
FORTRAN programs on BRLESC. 


1. Have FORTRAN compiler tape on tape switch 15 (14 if FORAST 
is on 15.) 

2. Have tape switcn 7 set to a temporary tape. 

. 3, If have card input, be sure manual read switch 36 is dow. 

4, If have tape input (program on tape), set manual read switch 
36 up and set tape switch 6 to input tape unit. 

5. If want all tape output, set manual read switch 55 up and 
set tape switch 8 to output unit. Also put manual read 
switch 34 up if this output tape should be rewound at the 
end of this problem. 
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6. If programmer specifies any other input or output tapes, 
mount proper tapes and set proper tape switches. (The 
programmer may also specify 8 as an output tape without 
manual read switch 35 being up.) a 

1. ‘Use "tape start" button to initiate compiling the program. 

Halts: ft | 
a. NhO; Ena of problem. Initiate only if problems — 


are stacked. Compiler found program error | 
if B address of halt order is LLL. 


b. 080; End of output tape reel. Tape unit number 
is B of halt order. Change reel and initiate. 


e. 081; End of input tape reel. Tape unit number is B 
of hait order. Change reel and initiate. 


ad. All other halts or cycles; note PO and NI registers 
and do a jump to 058. It should soon get to N4O. 


XXVII. MAJOR DIFFERENCES BETWEEN FORAST AND FORTRAN 


The following list of some of the basic differences between 
these two programming languages should be useful to anyone who knows 


one language and is interested in learning the other one. 


1. Statement numbers in FORTRAN must be integer numbers that 
are used as symbolic names whereas the location field in 
FORAST may contain any symbolic name and a decimal integer 


is used as an absolute address. 


2. The initial character of a variable name must be alphabetic 
in FORTRAN and may indicate the type of variable. In 
FORAST, the initial character may be a decimai digit and 


has no special significance. 
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10. 


The type of names used in FORTRAN arithmetic expressions 


determines the type of arithmetic performed. In FORAST, 
the type of arithmetic performed is floating point unless 
changed by a MODE card or by preceding the formula by "FIX" 
or "INT", 


The type of a constant is determined in FORTRAN by the 
presence or absence of a decimal point. In FORAST, con- 
stants assume the same type as the type of the statement 


they are written in. 


In FORTRAN arithmetic formulas, automatic conversion from 
one type of variable to another is provided when the type 
of variable on the left of the = symbol is different from 
the type of the variables used on the right of the = symbol. 
In FORAST, this converion must be accomplished by the ex- 
plicit use of the appropriate subroutine when it is desired. 


FORAST allows the use of many = symbois to indicate more 
than one result address in ar arithmetic formula while 


FORTRAN allows only one variable name for a result address. 


Constant subscripts are enclosed in parentheses in FORTRAN 
but not in FORAST. 


All subscripts have an initial value of one in FORTRAN. 
In FORAST, the initial value may be specified as zero or any 


positive integer for each array individually. 


Variable subscripts are allowed in FORTRAN but not in FORAST. 
FORAST accomplishes the same thing more efficiently by 
allowing any address to be indexed by a single index regicter. 


Three dimensional arrays are allowed in FORTRAN but not in 
FORAST. 
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FORTRAN allows a multiply and an add or subtract ina 


subscript expression while FORAST allows only the 
addition or subtraction of a constant in an indexing. 
expression. 


FORTRAN usually allows only one statement per card and 
FORAST allows more than one. The statement field is 
columns 7-72 for FORTRAN and columns 11-76 for FORAST. 


Functions in arithmetic expressions may have more than 
one argument in FORTRAN but not in FORAST. 


Implied multiplication is allowed in FORAST but not in 
FORTRAN (although it does work in some FORTRAN compilers). 


Absolute addresses are not allowed in FORTRAN but are 
allowed in FORAST. (They are allowed in BRLESC FORTRAN 
assembly orders. ) 


XXVIII. CHECKLIST FOR CONVERTING OTHER COMPUTER 
FORTRAN PROGRAMS TO BRLESC FORTRAN 
The first card should be an identification card with an 
asterisk in Column 1. Columns 2-20 should contain a 
valid BRLESC problem number. 


If the signs used in the programs are reversed to BRL usage, 
insert a "CHANGE + AND -" control card after the identifi- 
cation card. 


If the signs punched cn the input data do not agree with 
BRL signs, the use of a CALL SETMSI(i) statement is re- 
quired where i = 1 means y punch is minus, i = 2 means x 
punch is minus and i = 3 allows either x or y to indicate 
minus. (The CHANGE + AND - contrcl card does not change 
input data signs.) 
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- DIMENSION, COMMON and EQUIVALENCE statements must be 


arranged in that order whenever any variable name appears 
in more than one of these statements. Also a variable 
cannot be made equivalent to itself, either directly or 
indirectly. 


If there isn't an * DATA card between the program and the 
input data, insert such a card. (A card with an E in 
column 1 may be used instead of the * DATA card on BRLESC.) 


If the program uses sense switches, it is best to insert 
control cards to preset them. (* SETSSW i UP or DOWN) 


If tapes are used, make sure the tape unit numbers used 
are compatible with BRLESC. (Those over 9 may need to be 
changed. ) 


If desired, change tape output to card output or vice versa 
by inserting control cards. Since BRLESC does not have 

an on-line printer, PRINT statements cause output on 

tape 8 unless changed by control cards. 


Arrays cannot have more than three dimensions and each 
reference to an array element must use the same number 


of subscripts as declared in the array definition. 


A nonsubscripted array name canncet be used to represent 
only the first element of the array. 

An array argument for a subprogram must have the same 
number of dimensions as the corresponding array dummy 
variable within the subprogram. Such array arguments 
must not have any subscripts, i.e. the argument must be 
just the name of the array. For example, it is illegal 
to try to use a column of a two dimensional array as an 


argument for 4 one dimensional array dummy variable. 
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FORMAT statements should not have any + signs on scale 
factors; BRLESC will use them as minus signs. 


Alphanumeric constants are restricted to a maximum. of 

six characters except in FORMAT statements. (Also the < 
CHANGE + AND ~ control card does not interchange sign 

characters in any alphanumeric constants. ) 


Some computers will skip n lines when n slashes occur at 
the beginning or end of a FORMAT statement but BRLESC 
will always skip n-l lines for n consecutive slashes. 


When indexing information is specified within an I/O list, 
BRLESC does not allow these index variables to be involved 
in arithmetic subscript operations except for the addition 
or subtraction of a constant. Indexing control within 
1/0 lists does also actually use the variable named 
rather than just an unnamed index register as happens 


on some computers. 


DO indexing variables do actually get used for counting 
within the DO loop. Some computers may use an unnamed 
index register instead. 

The program needs to be modified if it contains any of the 
following: (1) DRUM statements,(2) I cards (complex 
arithmetic), (3) assembly instructions for some other 
computer or, (4) more memory or tape units than available 
on BRLESC. 

If the beginning of an assignment statement is the same 
as the beginning of some other FORTRAN statement, BRLESC 
may erroneously assume that it ts the other statement. 
Qe of the error prints will usually occur when this 
happens. It is best not to use statement names, such as 
IF, DO, READ, ctc., as variable names, especially arrays. 
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el. 


22. 


23. 


Also TYPER, TYPEI, TYPEL, TYPED and TYPEC must not be 
used as the first five letters of any statement except 
a TYPE statement. 


ENTRY statements may have to be moved closer to the beginning 
of a subprogram if any of its dummy variables will actually 
be used in a statement that precedes the ENTRY statement. 

For CDC FORTRAN programs, a list of dummy varizebles may 

need to be added to the ENTRY stetemenv. 


Non-standard subprogram 2xits are not allowed. (Indicated 
by an * instead of a name on an argument list and integer 
numbers after RETURN in RETURN statements. ) 


Arithmetic statement functions are made availabli:: to a whole 
program rather than just the subprogram in which they appear. 
This shouldn't cause any difficuity unless the same name has 
been used for two different arithmetic statement functions. 
If possible, ask the original programmer if any special 
characteristics of a particular computer or FORTRAN compiler 


were assumed when writing the program. 


If possible, run a test case that has been run on another 
computer. 


In addition to the above general comments, programs that were 


written for CDC computers can have a number of other ir.compatibilities. 


Such programs should be checked for the following items: 


Assignment statements with more than one = symbol. 
Mixed type arithmetic expressions. 


DO loops that will not be done at least once. 


ENCODE, DECODE, BUFFER IN, BUFFER OUT, IF(EOF,t), 
IF(IOCHECK,t) and IF(UNIT,t) statements. 
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- Executable DATA statements that have statement numbers. 





y) 
6. Numbers as COMMON labels. 

| 7. Octal constants with a B at the end. 
8 


| . ENTRY statements without dummy variables. CDC automatically 
| uses the subprogram dummy variables with each ENTRY statement. 


constant. 


10. TYPE statements of non-standard form shat declare unusual 


{ 
9. Alphanumeric constants with R' instead of H preceding the 
data structures and operations. 


i XXIX. SUMMARY OF BRLESC FORTRAN IV STATEMENTS 


Notations: 


s,sl,s2,..... are statement numbers (look like integer numbers). 
1,11,12,..... are integer variable names. 


M,ml,m2,..... are integer variable names or integer constants. 


ae represents an arithmetic expression. 

le represents a logical expression. 

b,c,d,e,f represent any variable names or constants. 

t represents a tape unit number. 

f represents the statement number or variable name 


of a FORMAT statement. 


v,vl,ve2 represent variable names. 
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BOOM are 


Specification Statements: 


DIMENSION v,vl,v2,.... 


EQUIVALENCE (v,vl,..),(v2,v3,..) 


COMMON v,vl,.../a/v2,.../ b/v3,-. 


FREQUENCY s(m,ml,..),s1(m2,..) 
REAL v,vl,v2,... 


INTEGER v,vl,v2,... 
LCGICAL v,vl,v2,... 
DOUBLE PRECISION v,vl,... 
COMPLEX V,V1,V2, see 
TYPE REAL v,vl,v2,... 
TYPE INTEGER v,vl,v2,... 
TYPE LOGICAL v,vl,ve2,... 
TYPE DOUBLE v,vl,v2,... 
TYPE COMPLEX v,vl,ve,... 


EXTERNAL namel,name2,... 


Defines array names and 
maximum dimensions of each. 


Defines synonymous names. 


Defines names common between 
subprograms. a and bd are 
optional labels. 


Provides optimization in- 
formation. Ignored by BRLESC. 


Defines real (fl.pt.) 


variable names. 

Defines integer variable names. 
Defines logical vcriable names. 
Same as REAL on BRLESC. 

Not allowed on BRLESC. 

Same as REAL. 

Same as INTEGER. 

Same as LOGICAL. 

Same as DOUBLE PRECISION. 

Not allowed on BRLESC, 


Specifies names of functions 

or subroutines that are used as 
arguments for other functions 
or sutroutines. 


Alemania ioe 


nacre anne eran 


Assignment Statements: 


v= & 


aaf(v,vl, eee )= ae 


vele 


Control Statements: 


GO TO s 
ASSIGN s TO i 


GO 70 i, (sl,s2,...) 


Go TO (s1,582,...),4 


DO 8 t = ml ,m2,m5 





Evaluates expressions ae and 
storea result in v. 


Arithmetic statement function 
where asf represents its name 
and v,vl,... are the dummy 
variebles. 


Evaluates logical expression le 
and stores .TRUE. or .FALSE. in 

v. (v must be @ logical variable.) 
(If the operands for the logical 
operations in le are arithmetic 
variables, then the operation is 
performed on all bits of the word 
(36 bits on BRLESC). This is a 
CDC statement. ) 


DO statement s next. 

Put address of s into i. 

Do next the statement whose number 
was last assigned to i by an ASSIGN 
statement. 


Do statement si next. 


Repeat statements to and including 
s with i= ml,ml + m5, ml + an},... 
until i > me. 





Oe alee ae 


DOs i-=mil,m2 


IF(ae)sl,s2,s3 


IF(le)st 


IF(ae or le)sl,s2 


CONTINUE 


STOP or STOP w 


PAUSE or PAUSE w 


CALL name (v,vl,v2,...) 


IF(SENSE SWITCH r)sl,s2 


SENSE LIGHT r 


(os) 


Same as above with m4 = 1. 

Do statement sl next if ae is 

negative; s2 next if ae is zero 

and s3 next if ae is positive. 

where st is any executable state- 

ment except IF and DO. Statement 
st is done only if le has value 

~ TRUE. 

Statement sl is done next if the 
expression is not zero or .TRUE. 

and statement s2 is done next if 
the expression is zero or .FALSE. 
(Is CDC statement. ) 

Dummy statement. 

End of execution of main program. 
(w is octal no.) 

Computer halts. (Displays octal 
no. w.) 

Perform the subroutine specified by 
name”. 

Do statemen. sl next if switch r 
is down, do s2 next if it is up. 

For r «= 0 turn all senee lizhts off. 


For r = 1,2,3, or &, turn light r on. 


F epg ap Maio 2 pear aa tie NEED ei Pt ey ESE RE FORE EE ARES SF AA AE eee gr aS a> yrange come a TUneerE Manga MRL AeI En perro mt essen, es 


IF(SENSE LIGHT r)sl,62 


IF ACCUMULATOR OVERFLOW s1,s2 
IF QUOTIENT OVERFLOW 51.52 
IF DIVIDE CHECK 81,52 


Subprogram Statements; 
SUBROUTINE name (v,vl,v2,...) 


FUNCTION name (v,vl,v2,...) 


ENTRY name (v,vl,v2,...) 


BLOCK DATA 


ee anes emer ne sin Pe eee Hirt ie 


Do statement sl or s2 next if 
sense light r is on or off 
respectively. Turn light r 
off if it was on. 


These are special statements to 
check certain overflow indicators. 
Statement sl or s2 is done next 
if indicator is on or off 
respectively. 


Tefines the name and beginning 
of a subroutine. 
v,vl,v2,... are the dummy variables. 


Defines the name and beginning 
of a function subprogram. 


Define the name and dummy 
variables of extra entry points 
for subprograms. 


Indicates an execution exit of 


& subprogram. 


Marks the end of a subprogran. 


Special subprogram statenent 
to allow DATA statements to 
store into ‘abeled COMMON. 





4 Be a en 


Input-Output Statements: 


FORMAT (Special Specifications) 


Describes the fields for 


input-output data. 


READ f, list Read cards. 
PUNCH f, list Punch cards. 
PRINT f, list Print data, (on-line on some 


READ(t,f) list 

READ INPUT TAPE t,f,list 
INPUT t,f, sis 

WRITE(t,f) list 

WRITE OUTPUT TAPE t,f,list 
OUTPUT t,f,list 
READ(t)list 

READ TAPE t,list 

WRITE(t list 


WRITE TAPE t,list 


computers, off line on BRLESC). 
Read alphanumeric tape. 

Read alphanum : ‘ic tape. 

Read alphanumeric tape. 

Write alphanumeric tape. 

Write alphanumeric tape. 

Write alphanumeric tape. 

Read binary tape. 

Read binary tape. 

Write Linary tape. 


Write binary tape. 


END FILE + Write end-of-file mark on tape. . 
BACKSPACE t Move tape back one record. . 
REWIND t Rewind tape. 


READ DRUM m,ml, list 


Read drum. (Illegil on BRLESC.) 


WRITE DRUM m,ml,list Write drum. (Illegal on BRIEGC.) 


4 
i 
‘ 
: 
: 
7 
H 





ae | 
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DATA v,vl,.../ce,cl;.../ Stores initial values for 


variables. c,cl,... represents 
: constants. 
~ DATA (v=c),(vl=cl),... This is CDC form of the DATA 
statement. 
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OQRTF 
OCNF 
COSF 
LOGF 
EXPF 
ATANF 
TANHF 


APPENDIX 


A 


LIST OF PREDEFINED FUNCTIONS FOR BRLESC 


(F indicates fl.pt. and I indicates integer) 


Vv 
NAME 
ABS 
TABS 
AINT 
INT 
AMOD 
MOD 
AMAXO 
AMAXL 


ATAN 
TANH 
ALOG1O 


ATAN2 


ARGUMENT RESULT 


F 


+ 
a 


Cs > A Oe Re 7 oe 3 7 eS 7 oe 3 eS > 


‘xy fy fy 


i. | 


F 


kt =F 


tH 


bos C7 Ic 3 > PO 7 oe OO 9 Oe) oe) | 


ic) ne) Pe) ne? Mae | 


Number of 
ARGUMENTS 


Vi MeNOM NM 
mw ft WH NY DW 


NV 


Be MY YY RR fw WY Ww FF F PL PP 


oO HO WH FF FF HF 


id 


t~ 


a 


to 


DEFINITION 
Absolute value. 
Absolute value. 


Truncation to whole number. 


Convert fl.pt. ne. to integer. — 


Arg.1(mod Arg.2). 
Arg.1(mod Arg.2). 

Chooses largest argument. 
Chooses largest argument. 
Chooses largest argument. 
Chooses largest argument. 
Chooses smallest argument. 
Chooses smallest argument. 
Chooses smallest argument. 
Chooses smallest argument. 
Convert integer to fl.pt. 


Couvert fl.pt. to integer. 


Transfer sign of Arg.2 to Ars.l. 


WSIS im ae mea & re . 
Transfer sign of Arg.2 to Arg.l 


Are.i = minimum (Are.l,Ary.2). 
Arg.1 - minimum (Arg.1,Arz.2) 
Square root. 

Sine (argument in radians) 
Cosine (arsument in racians) 
Natural loyxarithm. 
Exponential. 

Arctanzent (result in radians) 
Hyperbolic tanrent. 


Base ten logarithm. 


Arctangent of (Arg.1/Ari7.2) 








II IV 


Number of 
NAME NAME ARGUMENT RESULT #$ARGUMENTS DEFINITION 


Non-Standard functions allowed on BRLESC: 


XLOCF 

ATANL 
ARCSINF ARCSIN 
ARCCOSF ARCCOS 
ARCTANF ARCTAN 


F or I 


F 


F 
F 
F 


Bs 1 Stores the address of the Arg. 
F 2 Same as ATANe. 
F i Arcsine. 
F 1 Arcosine. 
F 1 Arctangent (same as ATANF). 
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APPENDIX B. THREE EXAMPLES OF FORTRAN PROGRAMS 


(PROGRAM,INPUT DATA, AND OUTPUT ARE LISTED) 


* EXAMPLE L MULTIPLY TWO VECTORS A®B- LW. CAMPBELL 

DIMENSION A(10),B(10),C(10) 
READ 2,AeB 
DO 3 1=1,10 

3 CCL)=A(T) @B(1) 
PUNCH 4¢eC 
STOP 

4 FORMAT(ILSHVECTOR PRODUCT/(5E14.7)) 
ENU 


ENO (THIS CAXO REQUIRED ONLY ON BRLESC.) 


14.1 60.35 22-8 91.7 
3bed 193.44 83.61 2-648 
422! 8.23 15.9 1.77 
26° 3.0 B.1L1L8 19.1 


OCT.225963 BRLESC FORTRAN 2 


* EXAMPLE & MULTIPLY TWO VECTORS AeB Loewe CAMPBELL 


VECTOR PROOUCT 


374.18 


AA] 


42.44% 


f O.9936L0NE O2 0-64966805E 03 0.3625200E 03 0.7125090E 03 0.3296526E 05 


O.97T4000E 02 0-5803200E 03 O.6782276E 03 O.505768GE 02 O-4159120F 03 





apc a SR a a A a es 


e EXAMPLE 2 FINO SMALLEST NUMBER IN ARRAY F, LCAMPBELL 
OIMENSION F{20) 


READ 2+F 

SMALL2F (1) 

DO 9 J=#2,20 

TF CSMALL—F(5)195958 
8 SMALL#F(J) 
9 CONTINUE 

PUNCH 3,SMALL 

STOP 


3 FORMAT(LAHSMALLEST F=F13.6) 


END 
END 
16.1 60.35 22.8 91.7 
3602 193.44 83.61 2-648 
4.21 68.23 15.9 7.77 


2e7 3.0 8.1118 19.1 


OCT 225963 BRLESC FORTRAN 2 


* EXAMPLE 2 FIND SMALLEST NUMBER IN ARRAY F, L.CAMPBELL 


SMALLEST Fs 2.648000 


SO 
ob 


374.18 
9.8 
88.1 


42.44 


EXAMPLE 22 FROM BRL REPORT 1209 CODED IN FORTRAN-L.CAMPBELL 
C USE BISECTION METHOD TO FIND ROOT OF F(X)=Xee3=-X-1 IN INTERVAL (1,92) 
Ll FORMAT(5X~,LHXLOX4HF(X)//) 
21 FORMAT(1P2E15.7) 
31 FORMAT(24HCONOITIONS NOT SATISFIED) 
X=. 
Kl=2. 
EPS=.00001 
ASSIGN 1 TO K 
PUNCH ll 
44 F=xe(XexX-L.)-l. 
PUNCH21 ¢XeF 
COTOKs (12497) 
Ll FO=F 
TF(FI2,15515 
15 xXP=x 
GOTO 3 
XN=X 
X=X1 . 
ASSIGN 4 TO K 
GOTO 44 
4 Fl=F 
1F0F)5 945945 
45 XP=X 
GOTO 6 
5 KN=X 
6& ASSIGN 7 TO K 
IF (FO®F 1166565565 
65 PUNCH 31 
67 STOP 
66 X=iXN4tXP)/2. 
GOTO 44 
7 TFCABSFI(F)-EPS)67,71,71 
Tl IF(F)8,72,72 
72 XP=X 
GOTO 66 
A XW=X 
GOTO 66 
END 


ww KO 


END 


NCT.625,63 BRLESC FORTRAN 2 
* EXAMPLE 22 FROM BRL REPORT 1209 CODED IN FORTRAN-L.CAMPBELL 


x FIX) 


1.0000U00E 00 ~-1.Q000000E 00 
2-00000N0E 00 5.0C00C0000E 00 
1.500000°E 00 8&.7500000E-01 
1.2500000t 00 -2.9687500E-01 
1.375000CE 00 2.2460938E-01 
L.3425000E 00 -5.1513672E-02 
1.3437500E 00 8.2611084E-02 
L.3281250E€ 00 1.4575958E-02 
1. 3203125€ 00 -1.871061 3E-02 
L.3242167E 00 -2.1279454E-03 
1.3261 719E 00 6.2098296E~-03 
L.3251953EF 00 2.9366507E-03 
Le 3247TO7TOE 00 ~4.6594883E-05 
1.3249512E 00 9.9479097E-04 
1.3248291E 00 4.7403882E-04 
Lo32476B81E 00 2.137071 6€-04 
1.3247375€ 00 6.3552438E-05 
1.3247223€ 00 1.84778652E-05 
1. 3267247E 00 -1.4058747E-05 
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